$path = "\\default\\main\\Anand\\toipcs\\Tutorials\\internet";
$curPath = $path;
$curPath =~ !\default\main\(.*)\Tutorials\internet!$1!;
$parentdir = $curPath;
print "parent Directory  : $curPath\n"; 

($Pdir,$Sdir) =~ m!(.*)\(.*)$!$1,$2;

print "parent branch : $Pdir \t sub branch $Sdir";