Perl5 test for and flip the taint flag without regex matches or eval
