Example for lroe

lroe.pl

#!/usr/bin/perl

use strict;
use Data::Dump;

my %values;

for (<DATA>) {
    /^
        \s*
        (.+?)
        \s{3,}
        ([\d.]+)
        \s+
        ([\d.]+)
    /x and $values{$1} = [$2,$3];
}

print Data::Dump::dump(\%values) . "\n";


__DATA__
Total Incoming Connect Time (minutes)                22        43
           Port Group 1 (minutes)                     5         8
           Port Group 2 (minutes)                    11        20
           Port Group 3 (minutes)                     4        10
           Port Group 4 (minutes)                     2         5
        Total Incoming Connections                   55       119
        Avg Incoming Connect Time (minutes)         0.4       0.4

output

[davidp@supernova:/dev/shm]$ perl lroe.pl 
{
  "Port Group 1 (minutes)"                => [5, 8],
  "Port Group 2 (minutes)"                => [11, 20],
  "Port Group 3 (minutes)"                => [4, 10],
  "Port Group 4 (minutes)"                => [2, 5],
  "Total Incoming Connect Time (minutes)" => [22, 43],
  "Total Incoming Connections"            => [55, 119],
}