while (<>) {
  push(@lines, $_);
}