#!/usr/bin/perl
use Benchmark qw/cmpthese/;

$defaulttext = q/foo / x 30;
# $defaulttext = q/foobar / x 30;

cmpthese( 100_000, {
    slash_b => q{$text=$defaulttext; $text =~ s/\bfoo\b//g;},
    neg_look=> q{$text=$defaulttext; $text =~ s/(?<!\w)foo(?!\w)//g;},
    pos_look=> q{$text=$defaulttext; $text =~ s/(?<=[^\w])foo(?=[^\w])//g;},
});