in reply to Reading a text file and formatted printing

I'm sure many people will be willing to help but you should post a sample of the text file, the desired output file and whatever code you have so far.
@a=split??,'just lose the ego and get involved!';
for(split??,'afqtw{|~'){print $a[ord($_)-97]}