#!/usr/bin/perl -w

while( <DATA> ) {
        chomp;
        ($y,$m,$d) = split( /\//, $_ );
        print "$m/$d/$y\n";
}


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