# Ditch:
my $string = "Sat, 05 Jan 2013 04:00:15 GMT";
$string =~ s/\d{2} [A-Z][a-z]{2} \d+ //;
print "Take out and ditch: $string\n";
# Output: Take out and ditch: Sat, 04:00:15 GMT