#!/usr/bin/perl -w
use strict;
use Benchmark;

my $test;
#print "Good\n" if $test =~ ab;

timethese(-15, {
    bare      => '$test = "aba"; $test =~ ab',
    delimited => '$test = "aba"; $test =~ /ab/'
});