for (split /\n/, $longstring) {
  ...
}

##</code><code>##

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