Help for this page

Select Code to Download


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