please read the question and write a program in Perl language with the out put shows

Exercise 2.14 In Eukaryotes (higher organisms whose cells have a nucleose), promoter sequences are more variable than in Prokaryotes, such as the bacteria E. coli. In Eukaryotes, there are several different RNA polymerases that recognized different Eukaryotic promoter sequences. One type of RNA polymerase, the RNA polymerase II, recognizes DNA sequences that consist of two segments, the ... TATA box (consensus TATAWAW, where W is either A or T ) and the initiator sequence (consensus YY(ARR ), where Y is either C or T and R is either A or G ). [?] The two segments in these promoter sequences are seperated by 17 nucleotides. Write a regular expression that matches this RNA polymerase II promoter sequence