#!/usr/bin/perl

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

use strict;
use warnings;

$\ = $/;

my $dict = 'b';
$_ = '*' . 'a' x (9e4 - 1e4) . "\n";

my($head, $tail) = map length( $_ // '' ), split /\*/, $_;

s/\?/[$dict]/g;
s/\*/ [^$dict ]* /;

my $qr = qr/^$_$/;

substr($_, $head, 0, ' '),
  substr($_, -$tail, 0, ' '),
  print $_ =~ $qr ? "YES" : "NO"
    for 'a' x (0 + 1e4) . 'a' x (9e4 - 1e4) . "\n";