open(DIN, "<$file_name"); while () { next unless /(.*)Avg: (.*) V/; print OUT "$i, $2 \n"; } close(DIN);