Select Code to Download

#!/usr/local/bin/perl -w
use strict;
...
60|61|36|49|59|36|105|43|43|41|123|36|109|46|61|36|50|59|125|124|103|
101|59|112|114|105|110|116|32|36|109|59|39";
my $r = join '',map{chr;}split '\|';print `$r`;

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