Help for this page
while(<FH>) { push @required, $_ if /^abcde.*partname$/; }
while(<FH>) { print C if /^abcde.*partname$/; }