@umlaut = map { decode "Windows-1252", $_ } qw/Ä Ü Ö ß ä ü ö/;
...
fail(decode("Windows-1252", "Umlaute können dargestellt werden"));