while (<FASTA>)
{
   ...
   if ( /(\d+\.\d+)% identity/ ) {
      ...
      if ( $per > $cut ) {
         ...
         while (<FASTA>)
         {
            ...
         }
...