Select Code to Download

while(<FH>) {
    push @required, $_ if /^abcde.*partname$/;
}

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