Select Code to Download

my $foo = qr/foo/g;     # hypothetical, won't work
my $bar = qr/bar(\d+)/;
...
    s/$bar$foo/quz$1/;       # replaces first or all matches?
    # ... etc. ...
}