if ($main::fields[0] =~ /\Q$PartNumber\E/)
{
     # ...
}