my @match;
while (<DATA>) {
  my $string_found = $_;
  push @match,( $string_found =~ /(first_string|second_string|third_string|fourth_string|fifth_string)/gm );
}
print scalar @match," matches found: ",join ", ",@match, "\n";