$ perl -MO=Deparse -e 'for (0..2) { print }'
foreach $_ (0 .. 2) {
    print $_;
}
-e syntax OK

##</code><code>##

/fred/
$_ =~ /fred/
$_ =~ m/fred/