#!/usr/bin/perl -w
while(<>) {
	if(/((f|ht)tps?:\/\/[^\'\"\s]+)/)  {
		print $1."\n";
	}
}
