if ($_ < $bytepos) {
    print '< ';
  }
  if ($_ > $bytepos) {
    print '> ';
  }
  if ($_ == $bytepos) {
    print '* ';
  }

##</code><code>##

  print qw(* > <)[$_ <=> $bytepos];