There are about 100 files and I need to go through each of them and delete all the data which is between `<style>` and `</style>` + delete these tags too. 

For example

```html
<html>
<head> <title> Example </title> </head>
<style>
p{color: red;
background-color: #FFFF;
}
div {......
...
}
</style>
<body>
<p> hi I'm a paragraph. </p>
</body>
</html>

```

should become

```html
<html>
<head> <title> Example </title> </head>
<body>
<p> hi I'm a paragraph. </p>
</body>
</html>

```

Also, in some files the style pattern is like 

```html
<style type="text/css"> blah </style>

```

or 

```html
<link rel="stylesheet" type="text/css" href="$url_path/gridsorting.css">

```

I need to remove all 3 patterns. How do I do this in Perl?