sub figureOut
{
    while(my $text=~s/(<.?*>)/)
    {
       my $tag = $1;
       if( $tag=~s/\// )
       {
          my matchTag = pop(@tags);
          die('Bad HTML'); if( $1 ne $matchTag );
       }
       else
       {
          push(@tags,$1)
          figureOut($text);
       }

    }
}