my $ar = [ '1.1.1970' =~ /^(\d)\.(\d)\.(\d{4})$/];