my $date_str = sprintf q{%02d%s%d}, (split /\s+/,localtime)[2,1,4] ; [download]
In reply to Another date parsing technique by Boyd