#!perl -w use strict; my @c = q' # % ( / 3 6 7 @ B C G Q R ^ s t ~ '; print $c[2]; # 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.