my $x = ; chomp $x; $x = uc($x); my $regex = join('[^A-Z]*', split //, $x);