Thats better, but assigning to $l[0] through $l[7], you might as well do it with the ()=() structure. Also, obfuscate the first assignment a little.

@l=split/2/,q;1021012116211021112109210921112116;
;@l=reverse@l;&s;@l=($l[7],114,103,$l[4],119,#=3,
$l[1],108,102,10);&s;sub s{print(map{chr($_)}@l)}
[download]