<>; while(<>){ $_=<>; print /^0/&&/1$/ || /^1/&&/0$/ || /^0/&&/1 1/ || /^1/&&/0 0/ ? Yes:No,$/; }