Select Code to Download

#!/usr/bin/perl

...
    $rep_line = $_;
    write $fh;
}

$ perl testformat.pl 0 1 " " 2 3 " " 4 5;
$ cat /tmp/test.txt
...
3
4
5

$ perl testformat.pl 0 1 " " 2 3 " " 4 5;
$ cat /tmp/test.txt
...

4
5