#!/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;