Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
push @titles, $source =~ m/<title>(.+?)<\/title>/ig;

print join("\n", @titles);

Select or download this
```
www.perlmonks.org
somewhere else
```