while ($ctfilebuf =~ m/Cell/ig)
{
        print "Word \"Cell\" found at line number ......\n";
}