Select Code to Download

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

$line =~ s!^\N{BYTE ORDER MARK}!!;