#!/usr/bin/perl
use LWP::Simple qw(get);
$doc = get(shift) or die('Bad URL');
while ($doc =~ m/<a[^>]+?href=([^ >]*).*?>/sig) { $l = $1; $l =~ s/(^"|"$)//g; print "$l\n"; }