Maybe this looks a bit cleaner :-)

...
$c='"a$1"';
...
$a =~ s/$b/$c/eeg ;
...
[download]