Select Code to Download

$str =~ s/tag1/subst1/;
$str =~ s/tag2/subst2/;
$str =~ s/tag3/subst3/;
...
$str =~ s/tag49/subst49/;