Please help me with this question in Perl Language:

show the output and program itself.

Exercise 2.12 Transcription of genes in E. Coli bacteria is facilitated by a promoter sequence that is roughly 35 positions upstream of the start of the gene. While the promoter sequences can differ in each gene, they typically contain two nearly identical substrings (sometimes called "boxes") seperated by 18 nucleotides. The single "consensus" or "plurality" promoter sequence that characterises the set of E. Coli promoter sequences is: the box TTGACA followed by any 18 DNA nucleotides (A, T, C or G) followed by the box TATATT. Write a regular expression that defines the E. Coli consensus promoter sequence