• Re^2: Dates of Monk promotion (covered)
• Average Node XP per Month

Update: If you don't want to install Number::Format and DateTime::Format::Strptime, you can use Time::Piece (in core since 5.10) and sprintf:

use Time::Piece;

# ...

    $created = 'Time::Piece'->strptime($created, '%Y-%m-%d %R')->epoch
+;

# ...

            xp       => sprintf('%d', $data->{$monk}->{xp}),
            level    => $data->{$monk}->{level},
            age      => sprintf('%d', $data->{$monk}->{age}),
            by_age   => sprintf('%.4f', $data->{$monk}->{by_age}),
            posts    => sprintf('%d', $data->{$monk}->{posts}),
            by_posts => sprintf('%.4f', $data->{$monk}->{by_posts}),

# ...
[download]

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]