my $var = 'tad?pole';
my @list = ($var);
print("@list" =~ /\b$var\b/ ? 1 : 0, "\n");