Select Code to Download

$ cat in.txt 
1 22 3 -4
...
f d
j h
o m k

while (<>) {
    my @fields = split;
...
    }
    print "\n";
}