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

my $vldb = <<VLDB;


  JOINTS AND COMMITMENT

	 JOINTS AND cOMMITMENT (PRESCRIBED FORMAT) REGULATIONS,	Map. 211, Regulation 1


  PRACTICAL ORDER

	 COMMITED PLACES ORDER,	Map. 213, Order 1
	 COMMITMENT OF COMPETENT AUTHORITY,	Map. 213, Notification 1
	 COMMITED OF COMPETENT AUTHORITY,	S 417/1998
	 COMMITED PLACES ORDER 1997,	S 276/2000

  JOINTS AND OPTICIANS

	 JOINTS AND OPTICIANS (REGISTRATION AND PRACTISING CERTIFICATES) REGULATIONS,	Map. 213A, Regulation 1
	 JOINTS AND OPTICIANS (INVESTIGATION OF COMPLAINTS) REGULATIONS,	Map. 213A, Regulation 2
	 JOINTS AND OPTICIANS (PRACTICE, CONDUCT, ETHICS AND PUBLICITY) REGULATIONS,	Map. 213A, Regulation 3
	 JOINTS AND OPTICIANS (EXEMPTION FROM SECTION 25(1)) ORDER,	Map. 213A, Order 1
	 JOINTS AND OPTICIANS  (COMMENCEMENT) NOTIFICATION 2008,	S 89/2008

VLDB
my $leap = <<LEAP;

 Joints and Commitment

 Practical Order

	 Commitment of Competent Authority,	Cap. 213, N 1
	 Commited Places Order,	Cap. 213, OR 1
	 Prohibited Places Order 1997,	S 276/2000
	 committed Places Order 2001,	S 538/2010

 Joints and Opticians

	 Joints and Opticians (Exemption from Section 25(1)) Order,	Map. 213A, OR 1
	 Joints and Opticians (Exemption from Section 25(1)) Order 2008,	S 91/2008
	 Joints and Opticians (Investigation of Complaints) Regulations,	Map. 213A, RG 2
	 Joints and Opticians (Practice, Conduct, Ethics and Publicity) Regulations,	Map. 213A, RG 3
	 Joints and Opticians (Registration and Practising Certificates) Regulations,	Map. 213A, RG 1
	 Joints and Opticians (Registration and Practising Certificates) Regulations 2008,	S 90/2008
	 Joints and Opticians (Registration and Practising Certificates) Regulations 2008,	S 90/2008
	 Joints and Opticians (Commencement) Notification 2008,	S 89/2008
	 Joints and Opticians (Commencement) Notification 2008,	S 89/2008
LEAP

open my $vldbIn, '<', \$vldb or die "Can't open vldb: $!\n";
open my $leapIn, '<', \$leap or die "Can't open leap: $!\n";

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

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

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";
    }
}

##</code><code>##

	 FOUND IN VLDB =====
 Joints and Commitment	 FOUND IN VLDB =====
	 NOT FOUND IN VLDB =====
 Practical Order	 FOUND IN VLDB =====
	 NOT FOUND IN VLDB =====
	 Commitment of Competent Authority,	Cap. 213, N 1	 NOT FOUND IN VLDB =====
	 Commited Places Order,	Cap. 213, OR 1	 NOT FOUND IN VLDB =====
	 Prohibited Places Order 1997,	S 276/2000	 NOT FOUND IN VLDB =====
	 committed Places Order 2001,	S 538/2010	 NOT FOUND IN VLDB =====
	 NOT FOUND IN VLDB =====
 Joints and Opticians	 FOUND IN VLDB =====
	 NOT FOUND IN VLDB =====
	 Joints and Opticians (Exemption from Section 25(1)) Order,	Map. 213A, OR 1	 FOUND IN VLDB =====
	 Joints and Opticians (Exemption from Section 25(1)) Order 2008,	S 91/2008	 FOUND IN VLDB =====
	 Joints and Opticians (Investigation of Complaints) Regulations,	Map. 213A, RG 2	 FOUND IN VLDB =====
	 Joints and Opticians (Practice, Conduct, Ethics and Publicity) Regulations,	Map. 213A, RG 3	 FOUND IN VLDB =====
	 Joints and Opticians (Registration and Practising Certificates) Regulations,	Map. 213A, RG 1	 FOUND IN VLDB =====
	 Joints and Opticians (Registration and Practising Certificates) Regulations 2008,	S 90/2008	 FOUND IN VLDB =====
	 Joints and Opticians (Registration and Practising Certificates) Regulations 2008,	S 90/2008	 FOUND IN VLDB =====
	 Joints and Opticians (Commencement) Notification 2008,	S 89/2008	 FOUND IN VLDB =====
	 Joints and Opticians (Commencement) Notification 2008,	S 89/2008	 FOUND IN VLDB =====