#!perl -ln $$_=@a=A..T}{$b^x&&map{print$;if${$;=$a.$_}