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}),

# ...


##</code><code>##

($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,