use strict;
use warnings;

use Benchmark qw(:all);

print("This is Perl $]\n");

my %tests = (
    repeat => 'my ($y,$m,$d) = $date =~ /(\\d\\d\\d\\d)(\\d\\d)(\\d\\d)/;',
    range  => 'my ($y,$m,$d) = $date =~ /(\\d{4})(\\d{2})(\\d{2})/;',
    isook  => 'my ($y,$m,$d) = $date =~ /(....)(..)(..)/s;',
    unpack => 'my ($y,$m,$d) = unpack "A4 A2 A2", $date;',
);

# These don't result in any opcodes.
$_ = 'use strict; use warnings; our $date; '.$_
    for values(%tests);

our $date = '20091202';

my $results = cmpthese(-3, \%tests);