for ($str) {
    s/tag1/subst1/;
    s/tag2/subst2/;
    s/tag3/subst3/;
    ...
    s/tag49/subst49/;
}