$ perl -Mstrict -Mwarnings -E '
> open my $inFH, q{<}, \ <<EOF or die $!;
> ------------------------------------------------------------------
> Port   Speed    Duplex     Flow Ctrl      Link       Name
> ----   -----   --------  --TX-----RX--   ------     ------
>   1    10000     full      no     no      down      1       
>   2    10000     full      no     no      down      2       
>   3    10000     full      no     no      down      3       
>   4    10000     full      no     no      down      4       
>   5    10000     full      no     no      down      5       
>   6    10000     full      no     no      down      6       
>   7    10000     full      no     no      down      7       
>   8    10000     full      no     no      down      8       
>   9    10000     full      no     no      down      9       
>  10    10000     full      no     no      down      10      
>  11    10000     full      no     no      down      11      
>  12    10000     full      no     no      down      12      
>  13    10000     full      no     no      down      13      
>  14    10000     full      no     no      down      14      
>  15    10000     full      no     no      down      15      
>  16    10000     full      no     no      down      16      
>  17    1G/10G    full      no     no      down      17      
>  18    1G/10G    full      no     no      down      18      
>  19     1000     full      no     no       up       19      
>  20    10000     full      no     no      down      20      
> EOF
> 
> while ( <$inFH> )
> {
>     next unless m{^\s*\d};
>     my( $port, $speed, $link ) = ( split )[ 0, 1, 5 ];
>     next unless $link eq q{up};
>     say qq{port is = $port: speed is = $speed: link is = $link};
> }'
port is = 19: speed is = 1000: link is = up
$