just another perl hacker

#win : type numbers.txt | perl test.pl>result_run.txt
#nix : cat numbers.txt | ./test.pl>result_run.txt