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

my $day = $1;
my $month = $3;
my $year = $5;
# process stuff
print    $query->p({-align=>center},"$day $month $year"),
}

##</code><code>##


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