use strict;
use warnings;
use feature 'say';

my $text = do{ local $/; <DATA> };

say $text =~ /Screening Ligands by X-ray crystallography/ ? 'MATCH!': 'NOPE';

__DATA__
 ---------
EFETCH RESULT(1..3): [
1. Methods Mol Biol. 2014;1140:315-23. doi: 10.1007/978-1-4939-0354-2_23.

Screening Ligands by X-ray crystallography.

Davies DR(1).

Author information: <edited for brevity>