(my $test = $input) =~ s/[^A-Z]//ig;