Help for this page
#!/usr/bin/perl -w use strict; ... print OUTFILE "$outline\n"; } close (INFILE);
$line =~ s!^\N{BYTE ORDER MARK}!!;