my ($network, $path) = split (/(?