my @c= split //, q'#%(/367@BCGQR^st~';

##</code><code>##

my @c= ( '#', qw' % ( / 3 6 7 @ B C G Q R ^ s t ~ ' );