Good document. I can hardly fault it technically.

A few suggestions (I am a native speaker of (British) English):

Alright, thank you! I edited the Original Post in order to use most of your suggestions.

($untainted) = $tainted =~ m/(.*)/g;

($untainted) = $tainted =~ m/(.*)/g;
(And you just finished warning people not to use redundant qualifiers) :-)

Oh, I had a really hard time finding out what the difference between the two lines of code is. But indeed. I altered it, so now it is ($untainted) = $tainted =~ m/(.*)/; :)

Well, thanks!