perl -wle'
use Data::Dumper;
$x = !1; print Dumper $x'
$VAR1 = '';