# $value set to incoming parameter earlier
# $param object initialized earlier
my $valex = $param->valex;
$value =~ /($valex)/;
$param->errors( "Parameter '" . $param->name
    . "' contained invalid data." )
    unless(( defined $1 ) and ( $value eq $1 ));
$param->value( $1 );