Your stated requirements have problems:
$ perl -E ' my $str = "sssDDDsssDDDssUss"; my ($fore, $aft) = split /U/, $str, 2; $fore =~ s/s/i/g; $aft =~ s/s/o/g; say "$str\n", join "U", $fore, $aft; ' sssDDDsssDDDssUss iiiDDDiiiDDDiiUoo
$ perl -E ' my $str = "sssDDDsssDDDssUss"; say $str; $str =~ y/DU/M/; say $str; ' sssDDDsssDDDssUss sssMMMsssMMMssMss
Some other points:
— Ken
In reply to Re: Pattern matching simultaneous substitution
by kcott
in thread Pattern matching simultaneous substitution
by Anonymous Monk
For: | Use: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |