perl -CS split2.pl < input.txt