push(@titles, $1) while $source =~ s/<title>(.+)<\/title>//i;