perl -lpe'sub f{s/\pl(\d+)/f($_=$s[$1-1][-65+ord$&]);$_/ge;s/^=(.*)/lc$1/ee}push@s,[split$,=v9,$_,-1]}{print map&f?0+sprintf"%.2f",$_:$_,@$_ for@s'