Select Code to Download

    use strict;
    while ($str = <>) {
        print lc $str;
    }

    print (1)
    qw /#/
    $foo + $bar

    print +(1)
    qw /\#/
    ($foo || 0) + ($bar || 0)