print('BOTTOM' =~ m/\b$criteria\b/     ?1:0, "\n");  # 1
print('BOTTOM' =~ m/\b(?:$criteria)\b/ ?1:0, "\n");  # 0