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

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