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