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