sub search {
        my ($file,$part_number,$revision) = @_;
        open FILE "< $file" or die "Cannot open ($file) for reading: $!";

        local $_;
        while (<FILE>) {
            # search line for $part_number