http://www.perlmonks.org?node_id=538044


in reply to meta tag extraction with TokeParser

        next if $token->[1] ne 'meta' && $token->[0] ne 'S';
        $meta{$token->[2]{name}} = $token->[2]{content};

[download]
If you're seeing warnings about an 'uninitialized value', you should check if $token->[x] exists and is defined before comparing it to a different value or following the alleged reference.

In Section Seekers of Perl Wisdom