#!/usr/bin/perl

use Encode qw/from_to/;

#cat utf8.txt | perl -MEncode=from_to -pe 'from_to($_,"utf8","latin1");'
while (<DATA>) {
   print "Original: $_";
   from_to($_,"utf8","latin1");
   print;
}

__DATA__
Das ist ein tödlicher Täst für die 1€ (nicht ganz kostenlose!) Programmierung.
ÄÖÜß =AeOeUeSz
ΔΦΚ =Delta Phi Kappa
訁=U+8A01 (CJK)
א =Aleph U+05D0
€ =Euro
Š š =Scaron scaron
Ž ž =Zcaron zcaron
Œ œ =Oe oe
Ÿ =Yideresis
¤ =Yen
¦ =Bar
¨ =Dieresis
´ =Tick
¸ =cedille
¼ ½ ¾ =1/4 1/2 3/4