perl -ni.bak -e 'print unless /(b\|)*b/' filename