my $source = 'Posted by getting on your nerves on September 04, 2003';
if ($source =~ /Posted by (.+?) on \w+ \d{2}, \d{4}$/) { ... }