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

##</code><code>##

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

##</code><code>##

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