Is this the sort of result that you want?

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";
[download]

The result I get when I run that is:

ZZghtd\t\t\t\t\tLicBperl$popD9
[download]

But it's quite possible that I don't understand your question.