my ($date, $year) = /(\w+\s+\d+),?\s+(\d{4})/;
print "$date, $year\n";