#!/usr/bin/perl

use warnings;
use strict;

my @chars = qq(a-z, A-Z, 0-9, !, @, #, $, %, ^, &, *);

print @chars;