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