> perl -T -MScalar::Util=tainted -E'my ($foo) = @ARGV; say q(foo tainted? ) . tainted $foo; my ($u) = $foo =~ /(b)/; say q(u tainted? ) . tainted $u;' blah
foo tainted? 1
u tainted? 0