for (@ARGV) {
    s!  (\d{2})/
        (\d{2})/
        (\d{2})
    !
        my $y = ( $3 > 55 ? '19' : '20' ) . $3;
        "$y/$1/$2"
    !xeg;

    print "$_\n";
}