The following EBNF rules describe the syntax of decimal literals in Ada. Write a single Perl pattern that matches these literals. Simplify your pattern as much as possible. rightarrow [middot ] [] rightarrow {[underline] } rightarrow E [+ | -] rightarrow 0|1|2|3|4|5|6|7|8|9 rightarrow_