Somewhat related: http://blog.wiz.ro/articles/Catalyst%20Teamwork%20with%20Screen%20and%20VIM.pod -- package JAPH;use Catalyst qw/-Debug/;($;=JAPH)->config(name => do { $,.=reverse qw[Jonathan tsu rehton lre rekca Rockway][$_].[split //, ";$;"]->[$_].q; ;for 1..4;$,=~s;^.;;;$,});$;->setup;