Help for this page

Select Code to Download

Select or download this

my $str ='<html>/something/more words<br/></html>';
my @bits = $str =~ m!(<html>)/([^/]+)/([^/]+)<br/>(</html>)!;
print $_,$/ for @bits;

Select or download this
```
<html>
something
more words
</html>
```