use strict;
use warnings;

my @c = do {
    no warnings 'qw';
    qw' # % ( / 3 6 7 @ B C G Q R ^ s t ~ '
};

print $c[2];