sub ISO_ANSI {
# Conversion of polish characters: ISO Latin2 (8859-2) -> ANSI (Win-1250)
my ( $tekst ) = @_;
$tekst =~ tr/ˇĆĘŁŃÓ¦¬Ż±ćęłń󶼿/ĄĆĘŁŃÓŚŹŻąćęłńóśźż/;
return $tekst;
}
$linia = &ISO_ANSI($linia);
Finkcja do konwersja ISO ANSI