# File:	tr0.pl
# Title: 	tr (translate) $strtring =~ tr/[a-z]/[A-Z]/
#		Translations in String. Examples
# Author:	Mihaela Malita
#       Occurences of n in John von Neumann = 4";
#		Translate in upper case letters: JOHN VON NEUMANN
#		Translate in lower case letters: john von neumann		
# 		Translations in parallel, v with h, h with X everywhere: joXn hon neumann
$str = "John von Neumann" ;

# COUNT occurrences. Use the translate:  tr/searchPattern// 
$k =  ($str =~ tr/n//);	
print  "Occurences of n in $str = $k";				

$str =~ tr/[a-z]/[A-Z]/ ; 		
print "\nTranslate in upper case letters: ",$str;			
				
$str =~ tr/[A-Z]/[a-z]/ ; 			
print "\nTranslate in lower case letters: ",$str;			

$str =~ tr/vh/hX/ ; 			
print "\nTranslations in parallel, v with h, h with X everywhere:",$str;			
exit;