The "poop" looks like a nice clear way to write it to me, except I'd probably use something like $line instead of $_.