Select Code to Download

$ 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

s<(?:^|\D)(1 [a-z]+(?:, 1 [a-z]+)*)>{
    my @ranks = $1 =~ /[a-z]+/g;
...
    s/(.+),([^,]+)/$1, and$2/;
}
print

$ 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