use Tie::Constrained qw/detaint/;
tie my $var, 'Tie::Constrained', sub {
    my $re = qr/whatever/;
    $_[0] =~ /$re/ and &detaint;
};
##</code><code>##

$var = $tainted_thing;