Select Code to Download

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