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