Please help me with this Perl question: Show the program with its output please

Exercise 2.13 In the E. Coli lactose gene (or operon), the two box sequences are TTTACA and TATGTT, which are slightly different from the boxes in the consensus sequence described in the previous exercise. Write a regular expression that matches either the consensus promoter sequence or the specific lactose promoter sequence. Make the regular expressions as short as possible. Write a full program that reads in a long string and determines if that string contains an E. Coli consensus promoter sequence or a lactose promoter sequence. Of course, get the program running correctly