use strict;
use LWP::Simple;

my %info_lines = ( title       => 10,
                   timestamp   => 11,
                   shoppers    => 13,
                   num_orders  => 17,
                   gross_sales => 18,
                   avg_size    => 20,
                 );

my $url = "http://www.visionforum.com/admin/avantgo.asp";
my $page_content = get($url);

(my $plain_text = $page_content) =~ s/<[^>]*>//gs;

my @lines = map{"$_\n"} split /\r\n/, $plain_text;
print $lines[$_] for sort values %info_lines;