Parse STDIN from bash program "links" HTML download, remove all tags except tables

html.table.parser.pl

#!/usr/bin/perl -ws
use HTML::Scrubber;
use HTML::Entities qw(decode_entities);
use Text::Unidecode qw(unidecode);

my $HTMLinput = do {local $/; <STDIN>};
my $scrubber = HTML::Scrubber->new( allow => [ qw[ table tr td ] ] );

#print $scrubber->scrub($HTMLinput);

my $scrubber2 = $scrubber->scrub($HTMLinput);
print unidecode(decode_entities($scrubber2)), "\n";

#in bash:
#links -dump [URL] | html.table.parser.pl 

#needed: "links" program for bash
#http://www.jikos.cz/~mikulas/links/

#to install perl packages use:
#sudo perl -MCPAN -e shell
#cpan[1]> install [package.name]
#cpan[2]> exit