for () { 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