$str =~ s/(^|\n)[\n\s]*/$1/g;

print $str;