my @dates = map {s/(\d{2, 4}[\W]\d{2}[\W]\d{2.4})/<date>$1</date>/g; split;} <FILE>;