open my $fh, '<', \$longstring;
while (<$fh>) {
  ....
}