in reply to rearranging dates

$_="20040510";
s#(\d{4})(\d{2})(\d{2})#$3/$2/$1#;
print;

[download]

In Section Seekers of Perl Wisdom