use Data::Dumper;
use Readonly;

use strict;

Readonly my $REGEX => qr/^(\d{4})-(\d{2})-(\d{2})/;

my $s = '2011-02-15';
my ($y, $m, $d) = ($s =~ $REGEX);
print Data::Dumper->Dump([$y, $m, $d], [qw/y m d/]);