in reply to How do I search strings with parenthisis
my $field = "(555)555-1234"; while ( <DATA> ) { print if /\Q$field\E/; } __DATA__ (111)222-3456 (555)555-1234 (666)777-8888 [download]
Dave