my @arr = grep /\[tab\]/, split /(?<=<\/p>)/, $contents;