#!/usr/local/bin/perl -w

use Benchmark;

$count = 1_000_000;

print "Match eq => ", check_eq(), "\n";
print "Match rx => ", check_rx(), "\n";

timethese( $count, {
   'eq' => sub{ check_eq() },
   'rx' => sub{ check_rx() }
} );

sub check_eq {
   my $thing = "thing";
   my $i = 0;
   $i++ if( $thing eq "thing" );
   $i;
}

sub check_rx {
   my $thing = "thing";
   my $i = 0;
   $i++ if( $thing =~ /^thing$/ );
   $i;
}