my $date = '20050725';

my ($y, $m, $d) = unpack('a4a2a2', $date);

print "$y / $m / $d\n";