Select Code to Download

$ perl -lwe '$_="foo";
             /(\w+)/ && print "match: $1";
             /(\W+)/ || print "no match: $1";'
match: foo
no match: foo