$string =~ s/\s*\n\s*/\n/g; $string =~ s/\s+/ /g;