# Ditch:
my $string = "Sat, 05 Jan 2013 04:00:15 GMT";
substr($string, 5, 12, "");
print "Take out and ditch: $string\n";
# Output: Take out and ditch: Sat, 04:00:15 GMT