[ab@linux0059 html_tree_builder]$ perl code.pl
-1[ab@linux0059 html_tree_builder]$