#!/usr/bin/perl
use WWW::Extractor;

# Example 2 - Amazon (email)

# ACCESS
load_text 'amazon.txt';

# EXTRACTION
$table1 = read_table <<'End';
ITEM CODE, HITS,                      TITLE,
                  DIR,  NDIR, YOUR FEE,       DISCOUNT,             LIST PRICE
,
---------- ------ ----- ----- ------- --------------------------------------
,
########## ######                      @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
                  ##### ##### #######    sold at ##% off list price of #############
,
---------- ------ ----- ----- ------- --------------------------------------
End

cut $table1 'ITEM CODE', 'TITLE', 'DISCOUNT', 'LIST PRICE', 'YOUR FEE';

$table2 = read_table 'Number of Visitors';

cut $table2 2..6;
drop_head_foot $table2 0, 2;

($from_date, $to_date) = read_line
    'For the week of', 'through';

# OUTPUT
print "$table1\n";

print <<End;
From date: $from_date
  To date: $to_date
End

print "\n$table2";