$string =~ s/(.{60})/$1\n/g;

##</code><code>##

 if ($line =~ /^\s{0,3}(\w+)(\d+)(\w+)\s+((\w+))/)  {
  # $1-$3 used by something else here
   my $string = $4;
   $string =~ s/(.{60})/$1\n/g;
   print "$string\n";
}