Use of uninitialized value in substr at /usr/lib/perl5/HTML/PullParser.pm line 80.
 at /usr/lib/perl5/HTML/PullParser.pm line 80
        HTML::PullParser::get_token('HTML::TokeParser=HASH(0x9ce9fd0)') called at /usr/lib/perl5/HTML/TokeParser.pm line 52
        HTML::TokeParser::get_tag('HTML::TokeParser=HASH(0x9ce9fd0)', 'tr') called at switchmapHTMLTEST1.pl line 51
        main::switch_properties called at switchmapHTMLTEST1.pl line 28
        main::get_index called at switchmapHTMLTEST1.pl line 19
Use of uninitialized value in length at /usr/lib/perl5/HTML/PullParser.pm line 83.
 at /usr/lib/perl5/HTML/PullParser.pm line 83
        HTML::PullParser::get_token('HTML::TokeParser=HASH(0x9ce9fd0)') called at /usr/lib/perl5/HTML/TokeParser.pm line 52
        HTML::TokeParser::get_tag('HTML::TokeParser=HASH(0x9ce9fd0)', 'tr') called at switchmapHTMLTEST1.pl line 51
        main::switch_properties called at switchmapHTMLTEST1.pl line 28
        main::get_index called at switchmapHTMLTEST1.pl line 19