my $dir = 'aaa/bbb/ccc.php';
$dir =~ s!^.+?(?=[^/]+$)!!;
print "$dir\n";