This is perl, v5.8.8 built for i386-linux #!/usr/bin/perl use strict; use warnings; use Benchmark qw(:all); cmpthese( -2 , { hatena => sub { my $str = 'hogehoge2r'; $str =~ s/(?:2r|3|3r)$//; }, nohatena => sub { my $str = 'hogehoge2r'; $st…