#!/usr/bin/perl -w
#################
# findlinks3
#   Oct 2001, Jim Mahoney (mahoney@marlboro.edu) 
#   Yet another compact no-comment short version of findlinks.  
#   This one is only two lines - but still not the style I'd recommend.
################
$lre = qr&[^'"\s>]+&;
print join("\n", map { s/^('|")//; s/('|")//; $_ } 
                 map { s/\n//; m[<a\s+href\s*=\s*("$lre"|'$lre'|$lre)]g } 
                 join " ",<>
	  ), "\n";