Select Code to Download

  # prepare regex sub-expressions
  my $sizerx = '(-|\d+(\.\d+)?[GM]?)'; # Matches '-', or a float + 'M'
+ or 'G' for size
...
  ) {
    print "using regex, host is [$1]\n"; 
  }

  my($host,$os,$nproc,$load,$memtot,$memuse,$swapto) = (
    $_ =~ /^(\w+)\s+    # host
...
  } else {
    next;
  }