$tekst="Tere tulemast\n";
print lc($tekst);                #Väiketähed
print uc($tekst);                #Suurtähed
print substr($tekst, 5, 4)."\n"; #tule
print index($tekst, " ")."\n";   #4
chomp ($tekst);                  #Eemaldab lõpust reavahetuse
print $tekst."\n";
print length($tekst)."\n";       #Tähtede arv
