$path =~ #^(.+/)#;