Perl:Unicode to Ascii

use Unicode::String;
local $/; # slurp mode
$line=<>;
$u=Unicode::String::utf8($line);
$latin1=$u->latin1;
print $latin1;