No, that sounds like a pretty good approach to me. You can get rid of your intermediate variables tho'.

$finaldate = join '-', (split(/\//, $datefield, 3))[2,0,1];
[download]

--
<http://www.dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg