$date = '05-02-2003';
my($d,$m,$y) = $date =~ /(\d+)-(\d+)-(\d+)/;