Another way,

local $_ = '20040515';
my ($year, $month, $day) = unpack 'A4 A2 A2', $_;
my $date = "$day/$month/$year";
[download]

pack/unpack are always worth a try with fixed-width data.