13:25 >perl -wE "my %h = (x => 0, '$1' => 1); my $s = 'axb'; say $s =~ s/(x)/$h{$1}/r; say $s =~ s/(x)/$h{'$1'}/r;"
a0b
a1b

13:27 >