#!/usr/local/bin/perl
use 5.028; # say, &.
# surprisingly this works *only* in bytes semantics from perl 5.28
# 
# use utf8;
# binmode STDOUT => ':utf8';
say my $life  = '生';
say my $death = '死';
say $life &. $death;