Thanks Marshall. I finally got it to work. There were blank spaces in $PartNumber. Adding a $PartNumber =~ s/^\s+|\s+$//g; in the F1 loop fixed the issue. Thanks again to you and all those who replied. I will never forget this help.