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