in reply to Perl and Google Charts extended encoding

You could use Range Operators for a little less typing: 
my @characters = ('A' .. 'Z', 'a' .. 'z', 0 .. 9, qw(- .));

[download]

In Section Meditations