There was a similar post yesterday to which my reply is also relevant to this question about testing for errors. See Re: running programs for details.

@a=split??,'just lose the ego and get involved!';
for(split??,'afqtw{|~'){print $a[ord($_)-97]}