#!/usr/local/bin/perl
use strict;
use warnings;
use Benchmark qw(:all);


cmpthese(1_000_000, {
    "Non-global" => sub { "Perl is cool" =~ m/Perl/ },
    "Global" => sub { "Perl is cool" =~ m/Perl/g }
    }
);