{ local $/ = "________________________________\n"; while () { # do stuff with a single record } }