print cleanup(q/!s@#cr%ipt^&script?M:r;"._ \'W\\][iz][{}=a=+-r-d`~\''/);

sub cleanup {
    my $string = shift;
    if ( defined $string ){    
        $string =~ s/[^\p{Alnum}., ]//g;
        $string =~ s/script//g;
    }
    return $string;
}