open(SNOT,"shit.htm");
while(<SNOT>)
{
@x=split(" ");
#print "@x";
#print "$#x\n";
#if ($#x == -1)
# {
# print "-1 @x\n";
# }
#if ($#x == 0)
# {
# print "0 @x\n";
# }
$k=0;
for ($i=0;$i<$#x;$i++)
{
if ($x[$i] =~ /http/i)
{
print "$x[$i]\n";
$k=$k+1;
}
}
}