http://www.perlmonks.org?node_id=517596


in reply to Re^2: What's your favourite method of untainting?
in thread What's your favourite method of untainting?

I think this is wrong:

($foo) = ($variable =~ /^(.*)$/g);
shouldn't you add an s switch to the regexp so that it would match multi-line strings?