#!/usr/bin/perl
use strict;
use warnings;

sub search_phrase {
    my ( $inFile, @phrases ) = @_;
    
    open my $inFH, q{<}, $inFile
       or die qq{open: $inFile: $!\n};
    
    my $line;
    
    PHRASE:
    foreach my $phrase ( @phrases ) {
        my $rxPhrase = qr{\Q$phrase\E};

        # keep reading down the file
        while ($line = <$inFH>) {
            # when one phrase matches, jump to the next
            next PHRASE if $line =~ /$rxPhrase/;
        }

        # end of file, and we haven't matched the last phrase
        return;
    }
    # We have just matched the last phrase.
    # The number we want is somewhere in $line.
    my ($number) = $line =~ /(\d+)/;

    return $number;
}

my $file_n = "test.txt";
my $phrase1 = "total rows rejected:";
my $phrase2 = "total rejected recors:";
my $phrase3 = "rows rejected for sub";

my $result = search_phrase($file_n, $phrase1, $phrase2, $phrase3); 

if (defined $result) { 
    print "search_phrase subroutine found $result\n" 
}
else { 
    print "search_phrase subroutine didn't find a number." 
}

##</code><code>##

search_phrase subroutine found 390