0 : ~$ perl -wle '   
# string definieren
$_ = "Hallo Welt.";
# Transliteration durchführen und Anzahl merken 
$a = tr/aeiou/v/; 
# Anzahl und String ausgeben
print "a: $a; string: $_";
'
a: 3; string: Hvllv Wvlt.
0 : ~$