Select Code to Download

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