#!/usr/bin/perl6
my $check=5;
if !$check {"$check not checked".say} else {"$check checked".say}
$check=0;
if !$check {"$check not checked".say} else {"$check checked".say}
$check=-99;
if !$check {"$check not checked".say} else {"$check checked".say}
$check='';
if !$check {"$check not checked".say} else {"$check checked".say}
$check='Brain';
if !$check {"$check not checked".say} else {"$check checked".say}
$check=' ';
if !$check {"$check not checked".say} else {"$check checked".say}
$check='checked';
if !($check ne 'checked') {"checked".say} else {"not checked".say}
if !$check ne 'checked' {"checked".say} else {"not checked".say} |