#!/usr/bin/perl -l

use strict;
use warnings;

map { print "[$_]" }
	scalar( 1 == 0 ),
	~~ '',
	~~ scalar( 1 == 0 ),
	~~ ( 1 == 0 );

##</code><code>##

[]
[]
[0]
[0]