Re^2: Risque Romantic Rosetta Roman Race

Select or download this

@rtoa{ split//, uc(shift) }

Select or download this

@rtoa{ split//, uc($_) }

Select or download this

$ perl rtoa-pgatram-tybalt.pl t1.txt >tybalt.tmp
rtoa pgatram start
...
output           : 1 secs
total            : 6 secs
$ diff tybalt.tmp pgatram.tmp

Select Code to Download