I'd rather split single-quoted strings, easier to write (and read) than all the '',...',,'.. ,',' ,..', ', stuff. It's not like there is an endless supply of comma and quote.

#!/usr/bin/perl

  use strict;

  my @chars = (
    split('', 'abcdefghijklmnopqrstuvwxyz'),
    split('', 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'),
    split('', '0123456789!@#$%^&* '),
  );

  print @chars;
[download]