#!/usr/bin/perl -w
use strict;
use utf8;

open (FILE, $ARGV[0]) or die "Can't read $ARGV[0].\n";

my $fileln = <FILE>;

$fileln =~ tr/\’/\'/;