$line =~ /(\w+)\s+(.*?)\s{2,9}(.*?)/ ;

$line =~ s/(\w+)\s+(.*?)\s{2,9}(.*?)/$1 $2 $3/;