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