open(FILE, '<', $filename) #somehow using zless or other?
while <FILE>
{
  ...do action on each line...
}