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

##</code><code>##

continue();

##</code><code>##

if ($main::fields[0] eq $PartNumber)
{
     # ...
}