Zugriff auf x-tes Zeichen im Sting

[Robert]

Hallöle,

gibt es eine einfachere Methode in Perl, auf das x-te Zeichen eines Strings zuzugreifen als die substr-Methode?

$x = 17;
$str = "Es begab sich aber zu der Zeit, daß ein Gebot von Kaiser Augustus ...";
$c = substr($str, 17, 1);
erscheint mir irgendwie "unperlisch" und ineffektiv.
Ich muß einen String Zeichen für Zeichen durchgehen und abhängig vom jeweiligen Zeichen diverse Aktionen ausführen ...

cu,
Robert