my @dates;
while (<FILE>) { 
    while (m!(\d{2,4}[-/]\d{2}[-/]\d{2,4}|\w+\s+\d+\s+\d+)!g) {
        push @dates, "<date>$1</date>" 
    }
}