#!/usr/bin/perl

LINE:
while (<>) 
{
	if(/CH=/)
	{
		s/ffi/ffi/g ;
		s/ffl/ffl/g ;
		s/fi/fi/g ;
		s/fl/fl/g ;
	}
	print $_ ;
}