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