#!/usr/bin/perl
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";
while (<INFILE>)
{
  $line = $_;
  chomp ($line);
  $linestart = substr($line,0,20);
  $outline = "First 20:  "."$linestart";
  print OUTFILE "$outline\n";
}
close (INFILE);