Help for this page
open(FILE, '>>fai.txt') || die $!;
sub search { my ($file,$part_number,$revision) = @_; ... local $_; while (<FILE>) { # search line for $part_number