Regex $(30$ points$)$

Create the Perl script $$proj$1\_1.$pl$$ that print lines that contain an opening and closing XML heading tag from $$proj$1\_$data.txt$.$ Valid tags are name, price, description, preparation$\_$time, and food$\_$costs regardless of the case. Tags may also have any arbitrary content inside of them. You may assume that a $\text{'}<\text{'}$ or a $\text{'}>\text{'}$ character will not appear inside of the attribute's value portion.

A few substitutions that are required:

$$ Capitalize words that should be upper case such as Italian, Bolognese, and Parmesan

$$ Change each tag to

$$ Due to inflation, add $$1\mathrm{.}00$ to the price and $$0\mathrm{.}50$ to the food$\_$costs for each menu item.

The output should look like this: