#!/usr/bin/perl

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

    print; print "\n";
}