Select Code to Download

my ($y, $m, $d) = ($s =~ /@{[REGEX]}/)[0, 1, 2];

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