Dann mach auch nicht mehr. Deine bisherige Prüfung sorgt dafür, dass am Ende mit hoher Wahrscheinlichkeit etwas falsches herauskommt. Zur Prüfung auf die Existenz eines Teilstrings (also auch eines Zeichens) bietet sich index() an, siehe
perldoc -f index
Cheatah
Die alte Prüfung habe ich längst rausgeschmissen!
Aber anstatt immer so perldoc zu posten, wäre es viel hilfreicher, wenn du mir mal eben nen Beispiel gegeben hättest und fertig.