Sorry, I don;t do golf ;--(

OK, so it's not Perl, but it is fast and compact:

iconv -f utf8 -t latin1 infile.txt

icon is available for most systems, including Linux, Solaris and Windows.

If you want to do it in the debugger you can use Text::Iconv:

# you only have to type these 2 lines once (or put them in the code)
use Text::Iconv;
$conv = Text::Iconv->new("utf8", "latin1");
# there you go!
print $conv->convert("Text to convert");
[download]

Note that iconv allows you to convert to and from way more than just latin1, just type iconv --list for a (long) (VERY long) list of supported character sets.