RosettaCodeData/Task/Empty-string/Perl-6/empty-string.pl6

my $s = '';
say 'String is empty' unless $s;
say 'String is not empty' if $s;