#!/usr/bin/perl -w
use strict;
use Data::Dumper;

my @a = ('2005-05-01', '2006-06-06', '2012-12-31');
my @finds=();
warn "\@a =\n" . Dumper(@a);
push @finds, $_ =~ m/^(\d{4})-(\d{2})-(\d{2})$/ foreach (@a);
warn "\@finds =\n" . Dumper(@finds);