I apologize for the bad spelling and typos. (jerk) just kidding
I realized that I could probably find something out there just like this, but the point of doing it was to see if I could, and to hopefully learn something(which I did). And the reason I posted it was to get feedback mainly on my coding, to see if there was any blatantly outstanding logic flaws.
That is a great idea about the modules, I will have to work on that.
my $name = 'Ben Kittrell';
my $nick = 'tha' . $name . 'sta';