#!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.