sub emazep {
  my $s = shift;
  my $tmp;

  ( ($tmp = substr $s, $_-1, 2) eq '11' or $tmp eq '00' ) and return  for @_;

  return 1;
}