Perl Filesystem Encoding erkennen

[pl]

hallo

  $_ =~ /[^A-Za-z0-9_.-]/ and warn($_ . "\n" .unpack( "C", $f));

Ich wollte schon immer chinesisch lernen.

孓慴⁏捴′㜠ㄵ㨲㔺㈲′〱㡝楳獥摩琮灬㨠浵獩欭湯瑥渭曼爭杩瑡牲攮桴浬ਜ਼卡琠佣琠㈷‱㔺㈵㨲㈠㈰ㄸ崠歩獳敤楴⹰氺‱〹⁡琠䌺⽕獥牳⽂敡琯䑯捵浥湴猯扥慴⵳瑯散歬楮⹣栯桴浬⽰氯歩獳敤楴⹰氠汩湥‱ㄵ⸊孓慴⁏捴′㜠ㄵ㨲㔺㈲′〱㡝楳獥摩琮灬㨠ﱀ耮瑸琊孓慴⁏捴′㜠ㄵ㨲㔺㈲′〱㡝楳獥摩琮灬㨠㈲㠠慴⁃㨯啳敲猯䉥慴⽄潣畭敮瑳⽢敡琭獴潥捫汩渮捨⽨瑭氯灬⽫楳獥摩琮灬楮攠ㄱ㔮

Wir nähern uns eindeutig der Lösung.

Nein, so ganz bestimmt nicht. Was steht in $_, was in $f?

MfG