You can use Path::Tiny to solve most of the file and path related tasks. In this case:

use Path::Tiny;
my $str1 = "/fold1/fold2/fold3/file.pl";
print path($str1)->dirname, "\n";
[download]