while(<$in_fh>) { ... }