if ($string =~ /DEFINITION\s\s([\w\s]+)ACCESSION/s){ print "$1\n"; } #### $string =~ /DEFINITION\s\s(.*?)ACCESSION/s