my $foo;
if ($bar =~ m!(acceptable_value|allowed_value)!) {
    $foo = $1;
} else {
    die 'Invalid value of tainted $bar: ' . $bar;
}