>perl -le"sub for { print 1 } sub foreach { print 2 } &for;"
1

>perl -le"sub for { print 1 } sub foreach { print 2 } &foreach;"
2

##</code><code>##

>perl -le"print 'for';"
for

>perl -le"print 'foreach';"
foreach