use Modern::Perl;
my $string = 'Sat, 05 Jan 2013 04:00:15 GMT';
my $date = join ' ', (split /\s/, $string)[1 .. 3];
say $date;