map { s/

// } grep { /\[tab\]/ } split /<\/p>/, $string;