#!/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 = "Inserted rows";
my $phrase2 = "Requested:";
my $phrase3 = "Applied:";
my $phrase4 = "Rejected:";
my $result = search_phrase($file_n, $phrase1, $phrase2, $phrase3,$phrase4);


if (defined $result) {
    print "$result\n"
}
else {
    print "-1\n"
}