Select Code to Download

$ mkdir diamondtest
$ cd diamondtest
...
$ ls  # now you see it
$ perl -pe 1 *
$ ls  # now you don't -- no files

while (defined($_ = <ARGV>)) { ... }

# strip blank lines
perl -pe 's=^\s*$=='

perl -Tpe 's=^\s*$=='