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

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