Does this qualify? (ok, now?)

#Thu Aug 30 18:03:31 2001
my @gmt= split ' ', scalar(gmtime);
print my $gmtime = "$gmt[0], ".( join ' ', (@gmt)[2,1,3,4]).'  0000';
#Thu, 30 Aug 2001 13:09:26  0000
[download]

You should by all means use POSIX like count0 (smarter).

 
___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;"