#!/usr/bin/perl -w

use strict;

my $file = $ARGV[0];

open (FILE,"<$file") || die "Missing file!\n";

while (<FILE>) {
	my @tmp = split (/ /,$_);
	foreach (@tmp) {
		if ($_ =~ /http:\/\//) {
			chomp($_);
			print "$_\n";
		}
	}
}

close (FILE);