#!/usr/bin/perl -w

use strict;
use HTML::TokeParser;

my @list;
my $file = "c:/test.htm";

my $p = HTML::TokeParser->new($file) || die "Can't open $file: $!";

while ( my $token = $p->get_tag( qw(li) ) ) {
    my $text  = $p->get_trimmed_text();
    push @list, $text;
}

@list = sort @list;

print "Item $_: $list[$_]\n" for 0.. $#list;