Select Code to Download

#! perl -slw
use strict;
...
print
fred

C:\test>junk44
Just test
...
print and scan and rinse: matched: [scan print rinse]
print: matched: [print]
fred: no match