Select Code to Download

#!/usr/local/bin/perl -w
use slack;
...
        $activity->start('/join #perlmonks');
    }
}

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