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