perl Problem

[K@sperl]

Die if Abfrage passt leider noch nicht,
if (! ($str =~ /^\//) )

prüft anscheinend den ganzen String und nicht nur die erste Stelle

und

if (substr($str, 0,1) neq '/')

gibt einige Syntaxfehler aus


edit:
if (substr($str, 0,1) ne '/') ist korrekt, prüft aber auch nur den gesamten String und nicht genau die erste Stelle.


edit2:
Jetzt geht's, hab bei substr den "1" vergessen