Or you could assign it to a handle.

my $q = CGI::new();
my $foo = $q->param{'foo'};
[download]

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