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