Select Code to Download

my $string  = pack "C*" => map { 32 + int rand 95 } 0..1280;

...
    subplus     => sub { (my $s = $string) =~ s/[^a-zA-Z0-9 _-]+//g },
    tran        => sub { (my $s = $string) =~ tr/a-zA-Z0-9 _-//cd   },
    });

$ perl5.8.8 test.pl
             Rate subsingle   subplus      tran
...
subplus    7096/s       14%        --      -93%
tran      97303/s     1464%     1271%        --
$