if ($_ =~ m/.*(PNODE:\w*)/) # \w* assuming you want alphanumeric chars.
        {
            $PNODES{$1} = 1;
        }