perl -wle'
$_ = "foo bar";
$zeichen = tr/A-Za-z/A-Za-z/;
print $zeichen'
6