for (qw(The quick brown fox)) {
   my $s = $_;
   $s =~ s/o/u/g;
}