#!/usr/bin/perl

open(DATA, '-');
@tekst = <DATA>;
close(DATA);
 
$id = -1;

foreach $line (@tekst) {

$line =~ s/Ą//g;
$line =~ s/Ć//g;
$line =~ s/Ę//g;
$line =~ s/Ł//g;
$line =~ s/Ń//g;
$line =~ s/Ó//g;
$line =~ s/Ś//g;
$line =~ s/Ź//g;
$line =~ s/Ż//g;

$line =~ s/ą//g;
$line =~ s/ć//g;
$line =~ s/ę//g;
$line =~ s/ł//g;
$line =~ s/ń//g;
$line =~ s/ó//g;
$line =~ s/ś//g;
$line =~ s/ź//g;
#$line =~ s/ź//g;
$line =~ s/ż//g;

$line=~ s/\&apos;/\'/g;
#$line=~ s/\&amp;/\&/g;
$line=~ s/\&amp;//g;

print "$line";

}

# Marek Wickowski na podstawie pliku Jarka Mynika







