Just another JAPH.

Fun with autosplit.
enjoy.

#!/usr/bin/perl -FJ_6,20_M_21_O_11,15,23_N_K_10,19_F_I_22_17_S_7_8_14_ +H_12,16,24_3_4,9,2__ -a $.=$*=1**0;@F=($...$=/2.4);$;=$|;$/=_;$_=$=/$.^($_+$;+$.) ;map{$*=$_;open O,${$|};while(<O>){chop&&!($.^1)&&shift@F &&print(chop)&&last;;s/^(\d+,)*$*\b.*$/chr($.+95-$;)/e||s /^$/ /||next;$;=$;=+$.;last;}}@F;$F[$#F]='.';print@F,"\n"

-monkfish (The Fishy Monk)