use LWP::Simple qw( get );
my $data = get($url);
open(IN, '<', \$data);
while (<IN>) {
...