my @ascii_be_gone = (215,220,224,226,231,232,233,234,235); my @chars_to_go = map { chr } @ascii_be_gone; my ($pattern) = map { qr/[$_]/ } join '', map { quotemeta } @chars_to_go; $str =~ s{$pattern}{}g;