#!/usr/bin/perl -w
use strict;
use LWP::Simple;  
open FILE, "text1.txt" or die $!;
my $url;
my $text;
while (<FILE>)
{
$text = $_;
$text =~ s/\s+//;
$url = 'http://www.nobeliefs.com/' . $text;
print qq[ '$url' ];
$text =~ s#images/##;
print "$text\n";
getstore($url, $text) or die "Can't download: $@\n";
}