my $LF = "\012";
while (<>) }
  s/$/$LF/g;
}