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