my $suchbegriff = "/home/dername";
my $ausdruck =  "/home/dername/Desktop/einordner";
$ausdruck =~ s/^$suchbegriff//;
print("$ausdruck\n");

if(s/^$suche//){
	print $';
}