unless 的简写模式

#!/usr/bin/perl

my $a='a';
print "right" unless ($a != 'a');