Select Code to Download

use strict;
use warnings;
...
  chomp $line;
  printf OUT "%1.50s\t%0.60s\t%0.45s\t %0.45s\n", @aFields
}