Fixed-format string manipulation using a regex is overkill.
(unless you just wanna exercise)

#!/usr/bin/perl -w
use strict;

my $str = 'Sat May 5 02:29:11 2001';
 
substr($str,0,4,'');
substr($str,-4,4,'');

print $str;
[download]

update

#This will also do in case you don't have 4 param substr (i forgot abo
+ut that)

$str = 'Sat May 5 02:29:11 2001';
substr($str,0,4) = '';
substr($str,-4,4) = '';
[download]

 
___crazyinsomniac_______________________________________
Disclaimer: Don't blame. It came from inside the void
perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"