while(<$PLOG>) {
    ++$alert3orMoreCount if /^Alert Level\s0*(?:[3-9]|\d{2,})/i;
    $pos = $. if /^Alert Level\s0*(?:[3-9]|\d{2,})/i;
}