in reply to formatting dates

More TIMTOWTDI: Time::Piece 
use Time::Piece;

print localtime->strptime(20030713,'%Y%m%d')->strftime('%Y-%m-%d');

[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

In Section Seekers of Perl Wisdom