my $string = '/usr/home/www/sitename.de/fix';
$string =~ s/\/[^\/]+$//;
print $string;