##

  use Encode qw(from_to);

  binmode DATA, ':utf8';
  my $original=;
  my $converted=$original;

  from_to($converted,'iso-8859-01','utf-8');
  from_to($converted,'utf-8','iso-8859-01');

  print $converted eq $original?'round trip ok':'changed'; 
__DATA__
some chars that in reality aren't all low ascii
 
##

##

 perl -e 'binmode STDOUT,":utf8"; print chr(0xC2),"\n";'