#!/usr/bin/perl -wT
use strict;

my $var = 'apple (banana) cherry';
my $line = 'apple (banana) cherry kiwi lemon melon';
$line =~ s/\Q$var//;

print "$line\n";

=output
 kiwi lemon melon