my $pwd = `pwd`;
print $pwd;
my ($parent_dir) = $pwd =~ m|^(.*)/[^/]+.*$|g;
print $parent_dir;

##</code><code>##

/home/myself/develop/0_test
/home/myself/develop