c:\test>perl -wle"print for ( 'a','b','c' )"
a
b
c