my @arr = grep {/\[tab\]/ and s/^

//} split /<\/p>/, $contents;