Select Code to Download

$path = "\\default\\main\\Anand\\toipcs\\Tutorials\\internet";
$curPath = $path;
...
($Pdir,$Sdir) =~ m!(.*)\(.*)$!$1,$2;

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