use 5.020; use Encode; sub explain_chars { use charnames (); return join "\n", map { charnames::viacode(ord $_) } @_; } my $klein = 'š'; my $gross = 'Š'; say "Vor dem Dekodieren:"; say explain_chars($klein); say explain_chars($gross); $klein = decode('Windows-1252',$klein); $gross = decode('Windows-1252',$gross); say "Nach dem Dekodieren:"; say explain_chars($klein); say explain_chars($gross);