How about
use strict;
use Perl;
use Perlmonks;

in one side, and

You have 20 codes left today.
You gained 1 experience point.
you have 1E6 points until level hacker

TIMTOWTDI() or die;
JAPH() or croak;