#! /usr/bin/perl
use strict;
use warnings;
use File::Basename qw( basename );


my $dir = 'aaa/bbb/ccc.php';

# nicht ersetzen, sondern einfangen; spart Arbeit
my ($last_part) = $dir =~ m{([^/]+)$};

# basename nutzen
my $basename = basename($dir);

# oder alles ersetzen (nicht nur den letzten Teil)
$dir =~ s{.*?([^/]+)$}{$1};

print "Matched:  $last_part\n",
      "basename: $basename\n",
      "Replaced: $dir\n",
;

__DATA__
Result should be:
Matched:  ccc.php
basename: ccc.php
Replaced: ccc.php

my $dir = 'aaa/bbb/ccc.php';


my $dateiname = (split /\//,$dir)[-1]; # Dateinamen aufsplitten nach Pfadtrenner
                                       # -1 = letzter Eintrag in Array mit den split-Ergebnissen

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

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