while ($response=<$remote>){
    #manipulate response here
}

##</code><code>##

while ($foo=<DATA>){chomp $foo;push @ary, $foo};

print "@ary";

__DATA__
foo
bar
baz
quud
quux