my $allowed = "pure";
my $re = "[^\Q$allowed\E]";

my $str = "p uuu+tr-ed";
$str =~ s/$re//g;
print $str, "\n";