#!perl

use strict;
use warnings;
use Data::Dumper;

my $string = "";

while(<DATA>) {
    $_ =~ s/\n/  /g;
    $string .= $_;
}

$string =~ s/((\w+\s)*\w+)\s*:\s+/\%$1%/g;
$string =~ s/^\%(.*)/$1\%/;
$string =~ s/\s+\%/\%/g;

my %hash = split (/\%/, $string);

print Dumper( \%hash );

__DATA__
VLAN     : 1           Status     : Enabled
FID      : 1           Name       : Some VLAN with    spaces
VLAN Type: Permanent   Last change: 2009-08-31 16:48:45
 Egress Ports:
host.0.1
 Forbidden Egress Ports:
ge.3.39
 Untagged Ports:
host.0.1