Select Code to Download

#!perl -w
...
# breaks into :
#  Use of uninitialized value in print at test.pl line 6.

print join ('|', @c);

# results in: # % ( / 3 6 7 @ B C G Q R ^ s t ~

Possible attempt to put comments in qw() list at test.pl line 4.