my $string = 'etwas muss weg';
my $string_weg = 'weg';

$string =~ s/\Q$string_weg\E//;
print "$string\n";