and avoid a warning by pulling '#' out of qw:

my @chars = ('a' .. 'z', 'A' .. 'Z', 0 .. 9, '#', ' ', qw(! @ $ % ^ & 
+*));
[download]