#!/usr/bin/perl -w
#################
# findlinks2
#   Oct 2001, Jim Mahoney (mahoney@marlboro.edu) 
#   Compact no-comment short version of findlinks.
#   Only the really essential parts, as it were.
#   *NOT* the style I'd recommend.
################
my $lre = qr{[^'"\s>]+};
s/\n//, @links = m{<a\s+href\s*=\s*("$lre"|'$lre'|$lre)}g for join " ", <>;
s/^('|")//, s/('|")// for @links;
print join("\n", @links), "\n";