My first attempts was similar (but I used Uperase letters too):

$_='074117115116032097110111116104101114032080101114'.
 '108032072097099107101114010'=>pos()=0;print map chr,
  substr $_=>pos()=>3 and pos()+=3 while pos()<length;

###

print map{chr}split /\\/,q
/074\117\115\116\032\097\110\111\116\104\101\114\032
\080\101\114\108\032\072\097\099\107\101\114\013\010/;

--
Casey