Select Code to Download

The exception to the principle of "one tainted value taints the whole
expression" is with the ternary conditional operator "?:".  Since code
...
  }

it doesn't make sense for $result to be tainted.

#!/usr/bin/perl -T
use warnings;
...
my $seven = "";
$seven = "the $foo" if $t;
print "7. tainted\n" if tainted($seven);

1. tainted
7. tainted