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"),
}