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