while () { } # or while (split(/\n/, $file_scalar_thing) { }