while(($day,$month,$year) =
  ($source =~ m!(\d{1,2})\s*(?:\/|\-)(\d{1,2})\s*\s*(?:\s*(?:\/|\-)\s*(\d{2,4})!g) ){