#!/usr/bin/perl -w
use strict;

use YAPE::Regex::Explain;

#prototype from the docs...
#my $exp = YAPE::Regex::Explain->new($REx)->explain;

my $REx1 = 
    qr{m/(?:Item|ITEM)[Ss]?\s?
    (?:\.|\-|:|\-\-|\,)?\s?
    (?:1|I)\s?
    (?:\.|\-|\:|\-\-|\,)?\s?
    (?:Description|DESCRIPTION)?\s?
    (?:[Oo][Ff])?\s?(?:[Tt][Hh][Ee])?\s?
    (?:Busine\s?ss|BUSINE\s?SS|Company|COMPANY)\s?
    (?:\.|\-|:|\-\-|\,|\()?
    (.*?)\s?
    (?:Item|ITEM)[Ss]?\s?
    (?:\.|\:|\-\-|\-|\,)?\s?
    (?:I|1A|1B|2)\s?
    (?:\.|\:|\-\-|\-|\,)?/x}; #this term apparently 
     # not needed not captured and it is optional
                                                        
my $Rex2 = 
    qr{m/(?:Business\s?Development|BUSINESS\s?DEVELOPMENT)\s?
    (.*?)\s?
    (?:Item|ITEM)[Ss]?\s?
    (?:\.|\-|:|\-\-|\,)?\s?
    (?:I|1A|1B|2)\s?
    (?:\.|\:|\-\-|\-|\,)?/x};
                
my $Rex3 = 
    qr{m/(?:PART|Part)\s?
    (?:\.|\-|\:|\-\-|\,)?\s?
    (?:I|1)\s?
    (?:\.|\-|:|\-\-|\,)?\s?
    (?:BUSINESS|Business|GENERAL|general)
    (.*?)\s?
    (?:Item|ITEM)[Ss]?\s?
    (?:I|1A|1B|2|3)\s?
    (?:\:|\-|\,|\-\-|\.|\,)?/x};                

print YAPE::Regex::Explain->new($REx1)->explain;