Select Code to Download

sub filter {
    my $str = shift or return '';
    return $str =~ tr/A-Za-z0-9.-//cdr;
}

Win8 Strawberry 5.30.3.1 (64)  Thu 10/06/2022 19:03:53
C:\@Work\Perl\monks
...
ok 5 - '%^&*'{[(]})'.!@$' -> '.'
ok 6 - '%^&*'{[(]})'!@$' -> ''
ok 7 - no warnings