use strict;
use warnings;

my @titles;
my $source = "<title>www.perlmonks.org</title><title>somewhere else</title>";
push @titles, $source =~ m/<title>(.+?)<\/title>/ig;

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