if ($string =~ m/^([a-zA-Z0-9_])$/) { my $safeString = $1; ### also untainted now }