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
