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]

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