#!/usr/bin/perl

use Benchmark qw(cmpthese);

use vars qw($g $c $p);

$p = "b";
#$p = "[ba]";
#$p = "c";
$g = "abababababababababababababababababababababababababababababa";

cmpthese (-10, {
    'map' => '$c = scalar map {1} ($g =~ m/$p/g);',
    'array' => '$c = scalar @{[$g =~ m/$p/g]};',
    's//' => '$c = ($g =~ s/($p)/$1/g);',
    'while' => '$c++ while ($g =~ m/$p/g);',
    'split' => '$c= (scalar split /$p/,$g) +($g=~/$p$/)-1;',
    '@_' =>  '@_=($g =~ m/$p/g) and $c=1+$#_;',
    '()' => '$c=()=$g=~/$p/g;',
});