perl -wle'my $n= (" " x 1_000_000) . "0" . (" " x 1_000_000); print $n ? "true" : "false", " as a bool, prenumification"; print 0+$n ? "true" : "false", " as a bool, numified"; print $n ? "true" : "false", " as a bool, postnumification";'
true as a bool, prenumification
false as a bool, numified
true as a bool, postnumification