similar?

perl -M"0;@h{split'','ARNDBCEQZGHILKMFPSTWYV'}=(1..22)"-pne "s/([A-Z])
+/$h{$1} /g"
[download]

L*

update (also edited the title for personal indexing purpose)

perl -pe 's/[A-Z]/(index" ARNDBCEQZGHILKMFPSTWYV",$&).$"/ge' input.txt

shorter..

perl -pe 's/\S/(index" ARNDBCEQZGHILKMFPSTWYV",$&).$"/ge' input.txt

the above is wrong.. but..

perl -pe 's/\w/(index"0ARNDBCEQZGHILKMFPSTWYV",$&).$"/ge' input.txt

> The trick with golfing is to wait for Discipulus to have a good idea and steal it from him :P.

best perl compliment I received!

PS

meh.. I had a -1 for not coresponding string in index also it seems that second column is not wanted..

..so a longer version is needed

perl -pe 's/\s.//,s/\w/(index"0ARNDBCEQZGHILKMFPSTWYV",$&).$"/eg' input.txt

L*