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

cmpthese( -2, {
    g => sub { 'network' =~ /^network$/g  },
    c => sub { 'network' =~ /^network$/gc },
    s => sub { 'networK' =~ /^networK$/   },
} );
__END__
       Rate    s    g    c
s 2106781/s   -- -28% -68%
g 2931188/s  39%   -- -56%
c 6602248/s 213% 125%   --