#!/usr/bin/perl

# http://perlmonks.org/?node_id=1196089

use warnings;
use strict;

$\ = $/;

while(<DATA>){
    chomp;
    my $dict = $_;
    $_ = <DATA>;
    
    my $star = /\*/;
    my( $head, $tail ) = map length( $_ // '' ), split /\*/, $_;
    print "head:[$head], tail:[$tail]";
    
    s/\?/[$dict]/g;
    s/\*/[^$dict]*/;
    
    my $qr = qr/^$_$/;
    print "regex:[$qr]";
    
    (print "loop #:[$_]"),
        $_ = <DATA>, (print "[$_]"),
        $star && substr($_, $head, 0, ' '), (print "[$_]"),
        $star && substr($_, -$tail, 0, ' '), (print "[$_]"),
        print "Answer: ", $_ =~ $qr ? "YES" : "NO"
            for 1 .. <DATA>;
    }
    
__DATA__
ab
a?a
2
aaa
aab