Select Code to Download

my ($title) = $chunk =~ /<title>([^<]+)/;
my @h1      = $chunk =~ /<h1>([^<]+)/g;

use strict;
use warnings;
...
<h1>three</h1>
</body>
</html>