if ($string =~ /^\//) { ... }