#!/usr/bin/perl
#grep for urls in netscape/lynx like bookmarks
$url = shift(@ARGV) || do { print "Usage: %0 url ...\n"; exit 1; } ;

while (<>) {
	if (/$url/i) { 
		print "$1\n" if /HREF=\"(.*?)\"/i;
	}
}