my @trash = qw/y << ; '' \r \n $_ pack 'c*' = eval @ && die/;

my $src = qw/ZZ<<;ght;''d;\r\n\t\t\t\t\t;$_;LicBpack;'c*'y=eval;perl$@pop&&die@;D9/;

for my $kill ( @trash ) {
    $src =~ s/\Q$kill\E//g;
}

print $src, "\n";

##</code><code>##

ZZghtd\t\t\t\t\tLicBperl$popD9