#!perl -p
y/BE/CF/||s;$;#