Here's my shot - slightly different than other options so far:

  my $ddsmmsyyyy = "19/06/2003";
  my($dd, $mm, $yyyy) = split /\//, $ddsmmsyyyy;
  my $yyyymmdd = $yyyy.$mm.$dd;
[download]