Aparte de lo indicado por kidd, no necesitas "escapar" los caracteres por adelantado (se te puede olvidar alguno, como es el caso de las comillas simples). Por eso, el uso de quotemeta() o de "\Q...\E" ahorra esas preocupaciones. Más información en
perldoc -f quotemeta.
Using perl Syntax Highlighting
#!/usr/bin/perl
my @test = ("('hola')/");
my $texto = "('hola')/";
for my $tes (@test) {
my $patron = "\Q$tes\E";
print "Comprobando [$patron]\n";
if ( $texto =~ /$patron/ ) {
print "yeah\n";
}
}
__END__
Comprobando [\(\'hola\'\)\/]
yeah
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4