#!/usr/bin/perl
use strict;
use warnings;

my $x = 5;
print "x not 3\n" unless $x==3;

print "x not 3\n" if $x!=3;
print "x not 3\n" if !($x==3);