for (qw(The quick brown fox)) { s/o/u/g; } #### for (1..5) { $_ = ...; } #### for (map "$_", qw(The quick brown fox)) { s/o/u/g; } #### for (qw(The quick brown fox)) { my $s = $_; $s =~ s/o/u/g; } #### for (qw(The quick brown fox)) { for (my $s = $_) { s/o/u/g; } }