I though to myself, "hmmmm ... let's use TheDamian's Getopt::Declare" and proceded to RTFM. I had always wanted to learn this module, and now seemed like the time.

After about 40 minutes of racking my brain (:D) i finally came up with this:

#!/usr/bin/perl -w

use strict;
use LWP::UserAgent;
use Getopt::Declare;

# -h, -v, --help, --version are included
# and these are tabs - not spaces!
my $spec = q(
    -a    List all matches
    --all    [ditto]
);
my $args = Getopt::Declare->new($spec);
my $all  = $args->{'--all'} || $args->{'-a'};

for my $woord ($args->unused) {
   # insert for loop block innards from code above
}
[download]

P.S. i also have no quandaries about using regexes to parse HTML, just as long as the coder understands how to use the CPAN HTML parsers. Sometimes using regexes really is easier. Sometimes.

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)