Select Code to Download

s
  Treat string as single line. That is, change ``.''
  to match any character whatsoever, 
  even a newline, which normally it would not match.

use strict;
use warnings 'all';
...
    print FH $line . "\n";
}
close(FH);

one three one oneone
one four
four five