Select Code to Download

my %subs = (
    qr/tag1/ => 'subst1',
    qr/tag2/ => 'subst2',
...
);

$str =~ s[$_][$subs{$_}] for keys %subs;