b
*aaaaa...
1
...aaaaa...

##</code><code>##

#!/usr/bin/perl

use warnings;
use strict;

$\ = $/;

	my $dict = 'b';
	$_ = '*' . 'a' x (9e4 - 1e4) . "\n";
	
	s/\?/[$dict]/g;
	s/\*/[^$dict]*/;
	
	my $qr = qr/^$_$/;
	
	print $_ =~ $qr ? "YES" : "NO" for 'a' x (0 + 1e4) . 'a' x (9e4 - 1e4) . "\n";