my @arr = grep {/\[tab\]/ and s/^
//} split /<\/p>/, $contents; #### my @arr = grep /\[tab\]/, split /(?<=<\/p>)/, $contents; #### { local $/ = '
## my @arr = grep /\[tab\]/, split /(?<=<\/p>)/, $contents; ##
## { local $/ = '
/ && /\[tab\]/, ; print "read $_\n" for @arr; }