if( defined $motif and  $seq =~ m[$motif([^A-Z]+)[A-Z]] ) {