Select Code to Download

$file ="-(lala)-";
$skip ="-(lala)-";
...
if ($file =~ /\Q$skip\E/i) {     
print "matched!\n";
}

$skip = "-\(lala\)-";  # $skip is now -(lala)-

compared with

$skip = '-\(lala\)-';  # $skip is now -\(lala\)-