my $param = $cgi->param('foo') || '';
if ($param) {
   #...
}

##</code><code>##

my $_param  = $cgi->param('foo') || '';
my ($param) = $_param =~ /^($some_regex)$/;