< my @rows=split(//,$:); < my $i=0; < for(@rows){print $_; < if($i eq 80){ < print "\n"; < $i=0; < } < $i++; < } > $:=~s/(.{80})/$1\n/g; > print $: