#!/usr/bin/perl -w
 
@sor = ();	# átmenetileg itt tárolom a sor szavait
$szo = "";	
 
while (<>) {
  @sor = split(' ');		# sor szétszedése szavakra
  foreach $szo (@sor) { print &szo_feldolgozo($szo)." "; }	# feldolgozás szavanként
  print "\n";
}
 
sub szo_feldolgozo {                   
  my $_ = shift;
 
  return $_ if ( length $_ < 4);	# Ha négy betűnél rövidebb, nem változik semmi
  return '.' x ( length $_ ) if ( /bet/ );
  return '*' x ( length $_ );	# átmenetileg
 
# Most veszem a mintaillesztést, addig ez így marad.
# írásjelet keresek a szóban
# ha van 3-rét vágom: eleje+írásjel+vége 
#        visszatérés &facsaro($eleje).$írásjel.&facsaro($vége);
# ha nincs 3-rét vágom: első_betű+szó_közepe+útólsó_betű;
#        visszatérés $első_betű.&kavaras($szó_közepe).$útólsó_betű;
#        
}
 

IyEvdXNyL2Jpbi9wZXJsIC13CgpAc29yID0gKCk7CSMgw6F0bWVuZXRpbGVnIGl0dCB0w6Fyb2xvbSBhIHNvciBzemF2YWl0CiRzem8gPSAiIjsJCgp3aGlsZSAoPD4pIHsKICBAc29yID0gc3BsaXQoJyAnKTsJCSMgc29yIHN6w6l0c3plZMOpc2Ugc3phdmFrcmEKICBmb3JlYWNoICRzem8gKEBzb3IpIHsgcHJpbnQgJnN6b19mZWxkb2xnb3pvKCRzem8pLiIgIjsgfQkjIGZlbGRvbGdvesOhcyBzemF2YW5rw6ludAogIHByaW50ICJcbiI7Cn0KCnN1YiBzem9fZmVsZG9sZ296byB7ICAgICAgICAgICAgICAgICAgIAogIG15ICRfID0gc2hpZnQ7CiAKICByZXR1cm4gJF8gaWYgKCBsZW5ndGggJF8gPCA0KTsJIyBIYSBuw6lneSBiZXTFsW7DqWwgcsO2dmlkZWJiLCBuZW0gdsOhbHRvemlrIHNlbW1pCiAgcmV0dXJuICcuJyB4ICggbGVuZ3RoICRfICkgaWYgKCAvYmV0LyApOwogIHJldHVybiAnKicgeCAoIGxlbmd0aCAkXyApOwkjIMOhdG1lbmV0aWxlZwoKIyBNb3N0IHZlc3plbSBhIG1pbnRhaWxsZXN6dMOpc3QsIGFkZGlnIGV6IMOtZ3kgbWFyYWQuCiMgw61yw6FzamVsZXQga2VyZXNlayBhIHN6w7NiYW4KIyBoYSB2YW4gMy1yw6l0IHbDoWdvbTogZWxlamUrw61yw6FzamVsK3bDqWdlIAojICAgICAgICB2aXNzemF0w6lyw6lzICZmYWNzYXJvKCRlbGVqZSkuJMOtcsOhc2plbC4mZmFjc2FybygkdsOpZ2UpOwojIGhhIG5pbmNzIDMtcsOpdCB2w6Fnb206IGVsc8WRX2JldMWxK3N6w7Nfa8O2emVwZSvDunTDs2xzw7NfYmV0xbE7CiMgICAgICAgIHZpc3N6YXTDqXLDqXMgJGVsc8WRX2JldMWxLiZrYXZhcmFzKCRzesOzX2vDtnplcGUpLiTDunTDs2xzw7NfYmV0xbE7CiMgICAgICAgIAp9Cg==

QSBjYW1icmlkZ2UtaSBlZ3lldGVtZW4gayZlYWN1dGU7c3omdXVtbDtsdCBlZ3lpayB0YW51bG0mYWFjdXRlO255ICZhYWN1dGU7bGwmaWFjdXRlO3QmYWFjdXRlO3NhIHN6ZXJpbnQgYSBzemF2YWtvbiBiZWwmdXVtbDtsIG5pbmNzIApqZWxlbnTFkXMmZWFjdXRlO2dlIGFubmFrLCBtaWsmZWFjdXRlO250IHJlbmRlesWRZG5layBlbCBhIGJldMWxazogZWd5ZWQmdXVtbDtsIGF6IGEgZm9udG9zLCBob2d5IGF6IGVsc8WRICZlYWN1dGU7cyAKYXogdXRvbHMmb2FjdXRlOyBiZXTFsSBhIGhlbHkmZWFjdXRlO24gbGVneWVuOyBoYSBhIHQmb3VtbDtiYmlyZSBhIGxlZ25hZ3lvYmIgJm91bWw7c3N6ZXZpc3N6YXMmYWFjdXRlO2cgYSBqZWxsZW16xZEsIGEgCnN6Jm91bWw7dmVnIGFra29yIGlzIHRlbGplcyBtJmVhY3V0ZTtydCZlYWN1dGU7a2JlbiBvbHZhc2hhdCZvYWN1dGU7IG1hcmFkLiBBIGplbGVucyZlYWN1dGU7ZyBtYWd5YXImYWFjdXRlO3phdGEgYXosIGhvZ3kgYXogCmVtYmVyaSBhZ3kgbmVtIGVneWVkaSBiZXTFsWtldCwgaGFuZW0gdGVsamVzIHN6YXZha2F0IG9sdmFzLgomSWFjdXRlO21lIGEgYml6b255JmlhY3V0ZTt0JmVhY3V0ZTtrLgomVWFjdXRlO2d5aG9neSB0ZXNzZW5layBtaW5rZXQgYiZlYWN1dGU7ayZlYWN1dGU7biBoYWd5bmkgYSBoZWx5ZXMmaWFjdXRlO3ImYWFjdXRlO3NpIGZpbm9tcyZhYWN1dGU7Z29ra2FsIQoK

A cambridge-i egyetemen készült egyik tanulmány állítása szerint a szavakon belül nincs 
jelentősége annak, miként rendeződnek el a betűk: egyedül az a fontos, hogy az első és 
az utolsó betű a helyén legyen; ha a többire a legnagyobb összevisszaság a jellemző, a 
szöveg akkor is teljes mértékben olvasható marad. A jelenség magyarázata az, hogy az 
emberi agy nem egyedi betűket, hanem teljes szavakat olvas.
Íme a bizonyíték.
Úgyhogy tessenek minket békén hagyni a helyesírási finomságokkal!