#!perl -pl
/B|E/?++$_:s;$;#