I have a file that has a standard input but in a form that I haven't tried to read into a Perl program before.

The format of the file is this:

```none
 Net Number Assignments

Number  xxx.xxx.xxx.xxx
Netmask in /## Form     30
Type    IP
Status  InUse
Description     mpirpd-cjdn
Notes   mgmt
Entry-Id        000000000026450
Submitter       John Doe
Create-date     2009-07-01-13:55:24
Contact-Data    INTERNAL/555-555-5555
Contact-Id      CON-000028508

Net Number Assignments

Number  xxx.xxx.xxx.xxx
Netmask in /## Form     32
Type    IP
Status  InUse
Description     switch Lo0 -- switch unnamed
Notes   Reverved for Lan Management Loop Backs and links
Entry-Id        000000000032710
Submitter       John Doe
Create-date     2015-11-25-10:59:27
Last-modified-by        John Doe
Modified-date   2015-11-25-11:30:06
Contact-Data    INTERNAL/555-555-5555
Contact-Id      CON-000028508

Net Number Assignments

Number  xxx.xxx.xxx.xxx
Netmask in /## Form     32
Type    IP
Status  InUse
Description     mplsfe9-hub
Area    mpls
Entry-Id        000000000024150
Submitter       Russ Reilly
Create-date     2007-05-02-18:26:20
Last-modified-by        John Doe
Modified-date   2013-05-06-19:09:37
Contact Name    ITG  INTERNAL
Contact Phone   555-555-5555
Contact E-mail  me@home.com

```

Not all of the fields are always used (example: Contact Name and Contact Phone could be missing in the next record).

I don't necessarily need the field headings as they are consistently in the same location for each record.

I am sure this has been done before and probably has a simple solution so I am asking the question before I recreate the wheel.