#!/usr/local/bin/perl
use 5.012;
use utf8;
binmode STDOUT => ':utf8';
say my $life  = '生';
say my $death = '死';
say $life & $death;