More problems with perl.
I know this is kind of basic pattern matching but I'm having troubles.
I'm trying to match all date formats (ie. dddd-dd-dd, dd/dd/dddd, dd-dd-dddd, Jan|January 25 2000 where d=digit) and replace it with the following <date>dd-dd-dddd</date>.
my @dates = map {s/(\d{2, 4}[\W]\d{2}[\W]\d{2.4})/<date>$1</date>/g; s
+plit;} <FILE>;