18:24 >perl -wE "my $s = qq[abc\n\t  \nd\tef\n  \ngh]; $s =~ s/[ \t]+/X/mg; say $s;"
abc
X
dXef
X
gh

18:39 >