C:\>perl
my $text = 'a1b2c3d4';
$text =~ s~\w~#~g;
print $text;
^Z
########