sub taintedness {
!eval {
  eval substr(join("",@_),0,0)."1"
 }
}