Select Code to Download

Ruler : [12345678901234567890]
Input : [YearÔÖÑJEDocSrcP_USE_DATE  P_DATE  CurLine]
20    : [YearÔÖÑJEDocSrcP_USE_D]

#!/usr/bin/perl -w
use strict;
...
  print OUTFILE "$outline\n";
}
close (INFILE);