use strict;

use Unicode::Map;

my $Map = new Unicode::Map({ ID => "ISO-8859-1" });

while (<>) {
  print $Map->from_unicode($_);
}