#!\usr\bin\perl

use strict;

my $myDirectory = "/dir1/dir2/dir3/dir4/dirLast//";

my @myDir = split('/', $myDirectory); 
#creates an array of Dir names

pop @myDir; 
#removes the currnet directory 

$myDirectory = join( '/', @myDir); 
#Joins names back into parent path

print $myDirectory;