#!/usr/bin/perl -w

use strict;

use Benchmark "cmpthese";

my $string  = pack "A*" => map { chr (32 + int rand 95) } 0..1024000;

cmpthese( -1, {
    subsingle   => '(my $s = $string) =~ s/[^a-zA-Z0-9 _-]//g',
    subplus     => '(my $s = $string) =~ s/[^a-zA-Z0-9 _-]+//g',
    tran        => '(my $s = $string) =~ tr/a-zA-Z0-9 _-//cd',
} );
warn "Second version\n";
cmpthese( -1, {
    subsingle   => sub { (my $s = $string) =~ s/[^a-zA-Z0-9 _-]//g },
    subplus     => sub { (my $s = $string) =~ s/[^a-zA-Z0-9 _-]+//g },
    tran        => sub { (my $s = $string) =~ tr/a-zA-Z0-9 _-//cd },
} );
__END__
Use of uninitialized value in transliteration (tr///) at (eval 14) line 1.
[about a million warnings]
Use of uninitialized value in transliteration (tr///) at (eval 140) line 1.
Second version
              Rate   subplus subsingle      tran
subplus   114916/s        --       -4%      -14%
subsingle 119259/s        4%        --      -10%
tran      133187/s       16%       12%        --
               Rate   subplus subsingle      tran
subplus   2171607/s        --       -4%      -70%
subsingle 2256550/s        4%        --      -68%
tran      7143583/s      229%      217%        --