#! /usr/bin/perl

use strict;
use warnings;

my @hits;

while( <DATA> ) {
    chomp;
    push @hits, $1 if  $_ =~ /\w*(http:\S+)/;    
}

print join("\n", @hits) . "\n";

1;

__DATA__
Location: http://www.google.com Status Code: 200 OK
<br />
File : http://www.aby.cos Status code: 500 Server Error