use strict;
use Text::Iconv;
my $unicodetext = <IN>; # or whatever
my $utf2ascii= new Text::Iconv( 'UTF-8', 'ASCII') or die "Can't make converter";
my $asciitext = $utf2ascii->convert($text);
print "$asciitext\n";