@in = split(//, <<'END');
You cannot pass,' he said. The orcs stood still and a silence fell. `I
am a servant of the Secret Fire, wielder of the Flame of Anor. You
cannot pass. The dark fire will not avail you, flame of Udun.
END
$res = "";@order = qw(128 129 121 6 24 22 9 23 32 37 28 22 3 104 105 76 18 19 21 30 5 127 
122 153 157 32 180 173 4 152 162 166 13 9 122 22 34 35 12 7 108 133 121 3 18 22 11 11 180
 133 129 19 104 103 0 92 52 78 149);$res .= $in[$_] for @order;print $res;