$FMat[0][0]=grep(/AA/, @dipept);