#!/usr/bin/perl
use strict;
use warnings;

use Encode qw(from_to decode encode);

my $str = '...';

my $encoed_utf8 = from_to($str, 'UTF-8', 'ISO-8859-1');
my $decoded = decode('UTF-8', $str);
my $finally_utf8 = encode('UTF-8', $decoded);
print $finally_utf8, $/;