$s = q[ZZ<<;ght;''d;\r\n\t\t\t\t\t;$_;LicBpack;'c*'y=eval;perl$@pop&&die@;D9];;

$s =~ s[$_][]g for map quotemeta, 
    qw[ y << ; pack = eval @ && die], 
    '\n', '\r', "'c*'", "''", '$_';;

print $s;;

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