sub is_tainted {
 return ! eval {
  join('',@_), kill 0;
  1;
 };
}