Select Code to Download

$line =~ s/$1/ /g if ($line =~ m/^\w.*(\s\s).*/);

$line =~ s/\s\s/ /g;

$line =~ s/\s{2,}/ /g;