my $source = get("www.perlmonks.org"); # for example, can be any domain
push(@titles, $1) while $source =~ m/<title>(.+)<\/title>/i;

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