#!/usr/bin/perl -w
use strict;
use Data::Dumper;

$_ = <<'EOT';
Port 1 Database Assignments

  Region    Data Type   # Records

  GLOBAL    --
  LOCAL     --
  BUF       --
  D1        Unused
  D2        Unused
  D3        Unused
  D4        Unused
  D5        Unused
  D6        Unused
  D7        Unused
  D8        Unused
  A1        Unused
  A2        Unused
  A3        Unused
  USER      Unused
EOT

my %hash;
while (/^\s*(\S+)\s+(\S+)\s*$/mg) {
   $hash{$1} = $2;
}
print Dumper \%hash;