Here's an attempt a better syntax...
#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";