Jak zgadnąć kodowanie łańcucha w Perlu?

Mam ciąg Unicode i nie wiem, jakie jest jego kodowanie. Kiedy ten ciąg jest odczytywany przez program Perla, czy istnieje domyślne kodowanie, którego użyje Perl? Jeśli tak, jak mogę się dowiedzieć, co to jest?

Próbuję pozbyć się znaków innych niż ASCII z wejścia. Znalazłem to na jakimś forum, które to zrobi:

my $line = encode('ascii', normalize('KD', $myutf), sub {$_[0] = ''});

Jak działa powyższa metoda, jeśli nie określono kodowania wejściowego? Czy powinien być określony jak poniżej?

my $line = encode('ascii', normalize('KD', decode($myutf, 'input-encoding'), sub {$_[0] = ''});

questionAnswers(3)

yourAnswerToTheQuestion