use warnings;
use strict;

while (<DATA>) {
    s/(\d+)([a-z]{2})/$1/;
    print;
}

__DATA__
December 14th 2012
December 21st 2012
December 22nd 2012
December 23rd 2012
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Wonderful Web Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.