my $date = 'dd/mm/yyyy';
if (my @date = split /\//, $date) {
  $date = join '', @date[2, 1, 0];
}
[download]

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

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