use File::Spec;
my @dirs = File::Spec->splitdir($s);
my $file = pop @dirs; # dateiname herausholen
$#dirs -= 2 if @dirs > 2; # array @dirs um 2 elemente (verzeichnisse) kürzen
my $new = File::Spec->catfile(@dirs, $file); # neu zusammensetzen