in reply to regexp $1 in a variable

$c=qr/a$1/;
eval "$a =~ s/$b/$c/g";

[download]

In Section Seekers of Perl Wisdom