- or download this
$ perl xp_o.pl 2731
XP = 2731
...
1.19 pontiffs, 431 to promotion
0.91 saints, 2731 to promotion
a pontiff, 2 monks, a novice, and 1a initiates
- or download this
s<(?:^|\D)(1 [a-z]+(?:, 1 [a-z]+)*)>{
my @ranks = $1 =~ /[a-z]+/g;
...
s/(.+),([^,]+)/$1, and$2/;
}
print
- or download this
$ perl xp.pl 2731
XP = 2731
...
1.19 pontiffs, 431 to promotion
0.91 saints, 2731 to promotion
a pontiff, 2 monks, a novice, and 11 initiates