hi friend, try out this one

open(FILE,"out1.txt") or die $!;
while(<FILE>)
{
$_=~s/\s*//g;
push(@array,$_);
}
$array=join('',@array);
@array=split(/http|html/,$array);
foreach (@array){
if($_=~/www/){print "http$_"."html\n";}
}
[download]