#!/usr/bin/perl

use strict;
use warnings;
use Encode;

my $perl_str = "αινσϊρό";
print "IN UTF:$perl_str\n";
my $iso_str =  encode("iso-8859-1", $perl_str);
print "IN ISO:$iso_str\n";
my $utf_str = decode("iso-8859-1", $iso_str);
print "BACK IN UTF:$utf_str\n";