#!/usr/bin/perl -w

use strict;
use warnings;

use Encode qw(encode decode);

my $sFile = "";
my $sLine = "";
my $sCodepoints = "";

if ( $#ARGV == 0 )
{
   $sFile = $ARGV[0] ;
   if ( ! -e $sFile )
   {
        die "File '$sFile' doesn't exist!";
   }
}

open( FILE, "<", "$sFile") or die "Couldn't open file '$sFile'!";
{ # slurp file into string
    local $/;
    $sLine = <FILE>;
    close( FILE );
}

eval { $sCodepoints = decode( "utf8", $sLine, Encode::FB_CROAK ) };
if ( $@ )
{ # input was not utf8
    print "> No UTF-8, maybe ISO-8859-1 ?\n";
    $sCodepoints = $sLine;
}

open( FILENEW, ">:encoding(iso-8859-1)", "$sFile.new" ) or die "Couldn't open file '$sFile.new'!";
print FILENEW $sCodepoints;
close( FILENEW );