# utf8 zu latin1, iso-8859-1
sub utf2iso{
	no warnings;
	my $ref = shift;
	# Liste der Codepoints erstellen
	my @cp = unpack "U0U*", $$ref;
	# Liste als Bytes betrachten und zusammenpacken
	my $bin = pack "C*", @cp; # hier ohne Prüfung!
	$$ref = $bin;
}