#!/usr/bin/perl -w
use strict;
use Encode qw/encode decode/;

open (INFILE, "<:encoding(UTF-8)", "utf8.txt") || die "blah blah blah";
open (OUTFILE, ">:encoding(UTF-8)", "oututf8.txt") || die "blah blah";
binmode STDOUT, ':encoding(UTF-8)';

print "Ruler : [12345678901234567890]\n";
while (my $line = <INFILE>) {
  chomp ($line);
  $line =~ s!^\N{BYTE ORDER MARK}!!;
  print "Input : [$line]\n";
  my $linestart = substr($line,0,20);
  my $outline = $linestart;
  print "20    : [$outline]\n";
  print "---\n";
  print OUTFILE "$outline\n";
}
close (INFILE);