Hi,
if someone is bored

I found a perl regexp but it doesn't fit my needs:
^(?

?

?:0?[13578]|1[02])(\/|-|\.)31)\1|(?

?:0?[1,3-9]|1[0-2])(\/|-|\.)(?:29|30)\2))(?

?:1[6-9]|[2-9]\d)?\d{2})$|^(?:0?2(\/|-|\.)29\3(?

?

?:1[6-9]|[2-9]\d)?(?:0[48]|[2468][048]|[13579][26])|(?

?:16|[2468][048]|[3579][26])00))))$|^(?

?:0?[1-9])|(?:1[0-2]))(\/|-|\.)(?:0?[1-9]|1\d|2[0-8])\4(?

?:1[6-9]|[2-9]\d)?\d{2})$
This regexp validates a date:
mm/dd/yyyy
mm-dd-yyyy
mm.dd.yyyy
I would need:
dd/mm/yyyy
dd-mm-yyyy
dd.mm.yyyy
Anybody knows the answer?
I'm a little bit confused

Who's the perl king?
Thanks in advance,
LeSmou