Just taking my own advice for a test drive.....

Yep, it appears to work... a bit of a pain though.

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

-Blake