my $sep=qr/(?<sep>[-\/\\])/; 
my $date=qr/(?<year>\d{4})$sep(?<month>\d{2})$sep(?<day>\d{2})/