In the E coli lactose gene the two box sequences are TTTACA and TATGTT which are slightly different from the boxes in the consensus sequence describe in the previous exercise. Write a regular expression that matches either the consensus promoter sequence or the specific lactose promoter sequence. Make the regular expression as short as you can. Write a full program in perl that reads in a long string and determines if that string contains an E Coli consensus promoter sequence or a lactose promoter sequence.