sub de36 {
  my($a,$b) = (uc substr($_[0],-2,1),uc substr($_[0],-1,1));
  $CHARS{$a}*36+$CHARS{$b};
}

sub en36 {
  $CHARS[$_[0]/36].$CHARS[$_[0]%36];
}

##</code><code>##

SELECT MAX(thread) FROM messages WHERE thread LIKE "${parent}__"

##</code><code>##

SELECT * FROM messages WHERE thread LIKE "${parent}__"

##</code><code>##

SELECT * FROM messages WHERE thread = LEFT("$thread",LENGTH($thread))