$ perl -MScalar::Util=tainted -TE'say tainted($_) for glob "*"'
1
1
1
1