#!/usr/bin/perl -w
use strict;
while (<DATA>) {
   chomp;
   my @fields = split "/" , $_;
   print join "/" , @fields[1,2,0];
   print "\n";  
}
__DATA__
74/05/25
54/03/04
69/08/23
55/08/24