While not as absolute as a taint pragma, the Taint module offers the ability to introduce taint checkpoints in your code. For example:

use Taint;

warn "Oops" if tainted $num, @ids;
kill $num, @ids;
[download]

While not as encompassing as a taint pragma, these checkpoints, if placed correctly can tighten up your code without invoking the entire script with the -T. The use of this module however does require some forethought and understanding of tainted data and identification of vunerable execution points within your code.

 

perl -e 's&&rob@cowsnet.com.au&&&split/[@.]/&&s&.com.&_&&&print'