$ perl rtoa-pgatram.pl t1.txt >pgatram.tmp