もしかするとエンコードの問題なのかもしれませんが、
こちらで質問させていただきます。

ActivePerl v5.8.6にて、
「LWP::Simple」で取得したソースから「HTML::TableExtract」を使用して、
テーブルの文字列を取得しようとしてます。

=①==========================================
use LWP::Simple;
use HTML::TableExtract;
require 'jcode.pl';

$url = "http://xxx.com/";
$html_file = get($url) or die "$!\n";
jcode::convert(\$html_file,'sjis','euc');
=②=========================================
use LWP::Simple;
use HTML::TableExtract;
use Encode;
use encoding 'shiftjis';
binmode(STDERR, ':raw :encoding(shiftjis)');

$url = "http://xxx.com/";
$html_file = get($url) or die "$!\n";
$html_file = decode('euc-jp', $html_file);
============================================
①、②のパターンとも、$html_fileは正常に表示されます。