#!/usr/bin/perl -n
#
# qxurl - quick url extraction program
# tchrist@perl.com
#
# quick url extraction program.  reads from files, not urls, and 
# does not adjust relative urls.  see xurl for a better but 100x 
# slower solution.
# 
#############
BEGIN { $/ = '' } 
print "$2\n" while m{
			< \s* 
			   A \s+ HREF \s* = \s* (["']) (.*?) \1 
			\s* > 
		    }gsix;