You can use Text::Wrap, Text::Format, Text::Autoformat or whatever from CPAN.
Or use your peace of code and assign the $1, $2,... to something else.

if ($line =~ /^\s{0,3}(\w+)(\d+)(\w+)\s+((\w+))/)  {
  my ( $ws1, $num, $ws2, $string ) = ( $1, $2, $3, $5 );
   $string =~ s/(.{60})/$1\n/g;
   print "$string\n";
}
[download]