push @svcDesc, "$1:$2" while ($htmlStream->get_trimmed_text('/td') =~ /Protocol:\s(TCP|UDP)[^\n]+Destination\sPort:\s([0-9\-]+)/g);