Select Code to Download

# I dislike having to escape everything when I can use '' instead
$path = '\default\main\Anand\toipcs\Tutorials\internet';
...
($Pdir,$Sdir) = $parentdir =~ m!([^\\]*)\([^\\]*)$!;

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