use strict; while ($str = <>) { print lc $str; } #### print (1) qw /#/ $foo + $bar #### print +(1) qw /\#/ ($foo || 0) + ($bar || 0)