18:23 >perl -wE "my $s = qq[abc\n\t  \ndef\n  \ngh]; $s =~ s/^\s*$/X/mg; say $s;"
abc
X
def
X
gh

18:24 >