Perlの真偽を変数に入れると・・・

use strict;
use warnings;

my $foo = !1;
printf "%d%sdesu\n", $foo, $foo;

my $boo = !!1;
printf "%d%sdesu\n", $boo, $boo;

0desu
11desu

perlsyn

なんだか、わかったような、わからないような。