#!/usr/bin/env perl

use strict;
use warnings;

my $str = q{*a%Z(5)-["'] <.?!>};
my $fmt = "%12s : %s\n";

my $op_sub = $str;
$op_sub =~ s/[^a-zA-Z0-9\-\"\'\ \.\?\!"]//g;
printf $fmt, 'OP', $op_sub;

my $no_dup_quote = $str;
$no_dup_quote  =~ s/[^a-zA-Z0-9\-\"\'\ \.\?\!]//g;
printf $fmt, 'NO_DUP_QUOTE', $no_dup_quote;

my $less_esc = $str;
$less_esc =~ s/[^a-zA-Z0-9\-"' .?!]//g;
printf $fmt, 'LESS_ESC', $less_esc;

my $no_esc = $str;
$no_esc =~ s/[^a-zA-Z0-9"' .?!-]//g;
printf $fmt, 'NO_ESC', $no_esc;

my $trans = $str;
$trans =~ y/a-zA-Z0-9"' .?!-//cd;
printf $fmt, 'TRANS', $trans;