my $string=shift;
my ($teilstring) = $string =~ s/^(EinSuchAusdruckfürdenString)_REST$/$1/;
print "$teilstring\n";