#set up our 2D array...
$target[0] = "Do What I Mean Please.";
$target[1] = "Red Fish, Blue Fish.";
$target[2] = "One, Two, Three, Four.";
$target[3] = "Alpha Bravo Charlie Delta";

@target =~ s/(ish)/       /
            /(Two)/ uc $a /e;

# now @target is...
# $target[0] = "Do What I Mean Please.";
# $target[1] = "Red FISH, Blue Fish.";
# $target[2] = "One, TWO, Three, Four.";
# $target[3] = "Alpha Bravo Charlie Delta";

@target =~ s /ea/ZZ/
             /lu/ZZ/
             /hr/ZZ/;

# now @target is...
# $target[0] = "Do What I MZZn Please.";
# $target[1] = "Red FISH, BZZe Fish.";
# $target[2] = "One, TWO, TZZee, Four.";
# $target[3] = "Alpha Bravo Charlie Delta";