Que faire pour tuer le temps libre? Ben faire du 1-line en Perl évidemment!
perl -e '$v="tfe";$v=~s/(?{$,++})(.)/for($${\{1=>[-4,-15],2=>[12,6],3=>[-91,]}}{$,}){for $\(@{$_}){print chr(ord($1)+$\)}}/ge;'