http://qs1969.pair.com?node_id=219504

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

I am attempting to extract information from a text file across a number of lines.I can't find the correct regular expression syntax to match when it comes across = or () or '.' or any other non-alphanumeric characters. '.' only seems to match alphanumeric characters.Can anyone help me? ie:
#! /usr/bin/perl use strict; my $string = "LOCUS SOY4KDPP 545 bp PLN 01-FEB-2000 DEFINITION BIO5 gene complete cds EC=1.7.7.1. ACCESSION D17396 VERSION D17396.1 GI:498167 KEYWORDS protein; insulin-like protein; leginsulin. //"; if ($string =~ /DEFINITION\s\s([\w\s]+)ACCESSION/){ print "$1\n"; } exit;