@fajlok = glob('*.htm');

foreach $doc(@fajlok)
{
  open IN, $doc;
  read IN, $szoveg,-s $doc;
  $szoveg=~s/jpg/JPG/g;
  open HTML, '>'+$doc+'l';
  print HTML $szoveg;
#  $regi=$kep;
#  $kep=~s/20%/_/g;
#  $kep=~s/á/a/g;
#  $kep=~s/é/e/g;
#  $kep=~s/í/i/g;
#  $kep=~s/ó/o/g;
#  $kep=~s/ö/o/g;
#  $kep=~s/ü/u/g;
#  $kep=~s/ú/u/g;
#  $kep=~s/Á/A/g;
#  $kep=~s/É/E/g;
#  $kep=~s/Í/I/g;
#  $kep=~s/Ö/O/g;
#  $kep=~s/Ü/U/g;
#  $kep=~s/Ú/U/g;
#  $kep=~s/Ó/O/g;
#  print "$szoveg\n";
}
print "Vege\n";