Select Code to Download

while($source =~ m!(\d{1,2})(\/|\-)(\d{1,2})(\/|\-)(\d{2,4})!g) {

...
# process stuff
print    $query->p({-align=>center},"$day $month $year"),
}

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