open (SISSE, "<HOUSE.txt") || die "Fail puudub";
while($rida=<SISSE>){

@m=("a", "b", "c", "d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","x","y","z");
$length_rida = length ($rida);
for($x=0; $x<=$length_rida; $x=$x+1){
$taht=substr($rida, $x, 1);

for($g=0;$g<25; $g=$g+1){
	if($taht eq @m[$g]){
	$g=$g-1;
	$taht=@m[$g];
	$g=26;
	}	
}
print "$taht";	
	}
}
close SISSE;
