my $bla="/ein/pfad/zum/verzeichnis/irgendwas";
12
use File::Spec;my $dir = (File::Spec->splitdir($bla))[3];
my $dir= (File::Spec->splitdir($bla))[-3];