#!/usr/bin/perl
use warnings;
use strict;

my $allowed = "pure";
my $re = quotemeta $allowed;

my $str = "p u+r-e";
$str =~ s/[^$re]//g;
print $str, "\n";