use strict;
use warnings;

my $str = q{ZZ<<;ght;''d;\r\n\t\t\t\t\t;$_;LicBpack;'c*'y=eval;perl$@pop&&die@;D9};
$str =~ s/\by\b//g;
$str =~ s/\beval\b//g;
$str =~ s/\bdie\b//g;
$str =~ s/\\(n|r)//g;   # alternation
print $str, "\n";