#!perl
use strict;
use warnings;
use feature qw/say/;

use Devel::Peek;

my @trailing_truth = ( "0", "0\n", 0, '0', '0'."\n" );

foreach my $zeroe ( @trailing_truth ){
  
  warn $zeroe ? "true\n" : "false\n";
  Dump $zeroe;

#  Dump defined $zeroe; # check the REFCNT!
#  Dump length $zeroe;  # 
#  Dump 0+$zeroe;       # numeric coercion
#  Dump !!$zeroe;       # boolean coercion
 
# say "[][][][][][][][][][]\n";
  print "\n";
}