my $letters = shift @ARGV;
my @letters = split //, $letters;
my $pat = qr/^[$letters]+$/;