#!/usr/bin/perl -W

use warnings;
use strict;
use Benchmark;

my $phrase1 = 'network';
my $phrase2 = 'networK';
my ($t1, $t2);

##########################################
$t1 = new Benchmark;

for (1..10000000) {
    if ($phrase1 =~ /^network$/go) {}
}

$t2 = new Benchmark;

print timestr (timediff ($t2, $t1)), "\n";

##########################################
$t1 = new Benchmark;

for (1..10000000) {
    if ($phrase2 =~ /^networK$/) {}
}
$t2 = new Benchmark;

print timestr (timediff ($t2, $t1)), "\n";