$ perl -MTaint::Util -Mre=taint -Tle " $_ = $ENV{PATH}; sub f{printf qq/\$_ tainted? %d\n/, tainted $_;} f; $_ = $1 if / (.*)/; f; untaint $_; f;" $_ tainted? 1 $_ tainted? 1 $_ tainted? 0