my $mask = "0" x length $result;
substr($mask, $_, 1) = "1" foreach 2, 5, 8;
print "It passes!" if ($mask & $result) eq $mask;