>I personally don't see anything wrong with trying to
>reinvent wheels, you can learn alot. But you should study
>the wheel and see what it does and what you can do better.

Well said!
In that spirit, I offer a different cool link extractor:
perl -MHTML::LinkExtor -e 'print qq{@$_\n} foreach HTML::LinkExtor->new->parse_file($ARGV[0])->links'
What's cool is not that it is a one-liner, but that it is usable as a fast "tool" in my editor. While viewing a page in my web browser (Opera), I hit a command key to view source (in UltraEdit), another command key to extract links, and I have all the links from that page in a unnamed buffer. I use this every day.

Bruce Gray