$aa = 'Hallo';
$num = $aa =~ tr/[a-zA-Z]/[a-zA-Z]/;
print $num, $/;