use warnings version => 5.008003; #### use warnings lastversion => 5.008003; #### no warnings 'lastversion'; #### $"=$,,$_=q>|\p4<6 8p .q>.<4-KI;$, .=pack'N*',"@{[unpack'C*',$_] }"for split/;$_=$,,y[A-Z a-z] {}cd;print lc
## use warnings lastversion => 5.008003; ##
## no warnings 'lastversion'; ##
## $"=$,,$_=q>|\p4<6 8p .q>.<4-KI;$, .=pack'N*',"@{[unpack'C*',$_] }"for split/;$_=$,,y[A-Z a-z] {}cd;print lc