5. T he following EBNF rules are a simplified version of the ones that are used to define hexadecimal floating-point literals in the Swift language. Write a single Perl pattern that matches these literals. Simplify your pattern as much as possible. Do not use any Perl features other than those discussed in the book or in class. I ] 0x { -> . { } ( p | P ) [+ | - ] { } decimal-digit> 0 | 1 | 2 | 3 | 4 | 5 | 6 I 7 I 8 I 9