split will be the easiest way...

for (<DATA>) {
   chomp;
  next unless $_;
   my ( $yy,$mm,$dd ) = split '/';
   print "$mm/$dd/$yy\n";
}

__DATA__
74/05/25
54/03/04
69/08/23
55/08/24
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print