my $dir = 'aaa/bbb/ccc.php';
$dir =~ s/\/([^\/]{1,})$/$1/;
print "$dir\n";