#!/usr/bin/perl
use warnings;
use strict;
use feature qw(say);

...
...

if ($text =~ /Screening Ligands by X ray Crystallography/) {
                        say "MATCH!";
                }
                else {
                        say "NOPE!";
                }
}