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]}