#!/usr/bin/perl

use strict;
use warnings;

undef $/;
open my $fh, "<", '/tmp/sub_url_test/';
my $string = <$fh>;
$string =~ s/\n//g;
while ($string =~ /(http:\S*)\s/g) {
    print $1, "\n";
}