eval lc pack u,'' [17] s//lc pack u,''/ee [18] /(?{lc pack u,''})/ [19] print eval lc pack u,''x99 [26] print eval lc pack(u,'')x99 [27] eval lc(j x 165^pack$<^C,'') [28] update: dmd special, see [id://1026287] $_=pack u,'';y/A-^/a-z NGT/;eval [32] (N represents hard newline) $_=lc pack u,'';y/[-^/ NGT/;eval [32] eval lc pack u,''=~y/[-^/ NGT/r [31] perl 5.12+ s//lc pack u,''x99/ee;y/v_/ N/;print [36] s//lc pack(u,'')x99/ee;y/v_/ N/;print [37] s//lc pack u,''x99/ee;y/[-^/ NGT/;print [39] s//lc pack(u,'')x99/ee;y/[-^/ NGT/;print [40]