language: Perl (perl 5.16.2)
date: 334 days 20 hours ago
link:
visibility: public 
1
2
3
4

$str = "/dir1/dir2/dir3/file.txt";
$str =~ s/(.*)\/[^\/]*$//;
print "Result: '$1'";