#!/usr/bin/perl
open(FILE,"txt1.txt");
while(<FILE>){
($val1,$val2,$val3)=split(/\s+/,$_);
($val3)=split(/-/,$val3);
$vv=sprintf "$val1".'/'."$val2".'/'."$val3"."%3s".'/';
chop($vv);
print $vv;
}
close(FILE);