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

my $names = <<NAMES;
N 2
N 3
N 4
N 5
OR
NAMES
my $data = <<DATA;
Notification 2
Notification 1
Order
DATA

open my $in1, '<', \$names or die "Can't open names: $!\n";
open my $in2, '<', \$data or die "Can't open data: $!\n";

my @leapStrings = <$in1>;
chomp @leapStrings;
close $in1;

my @vldbStrings = <$in2>;
chomp @vldbStrings;
close $in2;

for my $leapString (@leapStrings) {
    print $leapString;
    $leapString =~ s/^\s+|\s+$//g;

    my $found;

    for my $vldbString (@vldbStrings) {
        $vldbString =~ s/^\s+|\s+$//g;
        $vldbString =~ s/Notification\s+(\d+)$/N $1/g;
        $vldbString =~ s/Order/OR/g;

        if ($leapString =~ m/$vldbString/i) {
            $found = 1;
            last;
        }
    }

    if ($found) {
        print "\t FOUND IN VLDB =====\n";
    } else {
        print "\t NOT FOUND IN VLDB =====\n";
    }
}