The idea is that maybe this will give monks a place to let out their aggression on other monks so they don't have to clutter up the monastery with their petty indifferences with each other.

my $name = 'Ben Kittrell';
$name=~s/^(.+)\s(.).+$/\L$1$2/g;
my $nick = 'tha' . $name . 'sta';
[download]