$tekst="Juku tuli kooli";
$tekst=~ s/Juku/Mati/;
print $tekst."\n";