#!/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ű;
#        
}