I think your script will basically work. All you need to do is change $SITVAL to $VAL, i.e. 
for(@PORTS){
($KEY,$VAL)=split(/:/);
        $HOST=$VAL if $KEY =~ /Host/;
        $CONNTIME=$VAL if $KEY =~ /Connection time/;
        $CONNEDHOST=$VAL if $KEY =~ /Connected host/;
...

[download]
The only significant thing I would change is to use if/elsif/elsif/... to check for the various key/value pairs: 
if ($KEY =~ /Host/) { $HOST = $VAL; }
elsif ($KEY =~ /Connection time/) { $CONNTIME = $VAL; }
elsif ($KEY =~ /Connected host/) { ... }
...

[download]
It's safer and more efficient.

Update: Note that you don't have to explicitly "delete the first three lines" of the output because none of the patterns you are matching against occur in the first three lines. However, if you want to be sure that the first three lines won't enter the for loop, you can eliminate them with: 

splice(@PORTS, 0, 3);

[download]

In reply to Re: format output from a exe within a perl script by pc88mxer
in thread format output from a exe within a perl script by swartzieee

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.