my @titles = /TITLE(.*?)(?=TITLE|$)/sg;