Help for this page
$line =~ s/\s+//g; # But this replaces \n too, so add it back on the end $line . "\n";