Select Code to Download

my $str = 't?e\\\\xt\\\\* with escapes\\*';
my %swap;
...
$str=~s/((?:\\)(.)|\?|\*)/$swap{$1}||$2/ge;

print ">>$str<<\n";