while (<FH>)
{
  print C $_ if /^abcde.*PARTNAME$/;
}