Thu Dec 17 15:55:52 2009

##</code><code>##

Thu Dec 17 2009

##</code><code>##

my $now = localtime;
my @t = split /\s+/, $now;
splice @t, 3, 1;
$now = join ' ', @t;

##</code><code>##

my $now = localtime;
$now =~ s/(\d\d:){2}\d\d//;
$now =~ s/\s{2,}/ /;

##</code><code>##

real    0m2.700s
user    0m2.698s
sys     0m0.002s

##</code><code>##

real    0m4.576s
user    0m4.573s
sys     0m0.002s