Tom C recently pointed out a bug that allows this to work:
sub untaint(@) { ($_)=keys%{{$_,0}} for @_; @_ }
Of course, this may be fixed someday.
==== Want to unsubscribe from Fun With Perl? Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
==== unsubscribe