19:18 >perl -wE "my $s = qq[abc\n\t  \ndef\n  \n\n\ngh]; $s =~ s/^\s+$(?!$)//mg; say $s;"
abc

def



gh

19:19 >