Select Code to Download

$a='abab';
$b='a(.)';
...
$a =~ s/$b/$c/g ;    # so this is  s/a(.)/a$1/g

print "\$a $a\n";

$a abab
$b a(.)
$c a$1
$a a$1a$1

$a abab