#!perl

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

my %hash = ();

$_ = <DATA>;
/:\s(.*?)\s+\w+\s+:\s(.*?)\s*$/;
$hash{'VLAN'} = $1;
$hash{'STAT'} = $2;
$_ = <DATA>;
/:\s(.*?)\s+\w+\s+:\s(.*?)\s*$/;
$hash{'FID'} = $1;
$hash{'NAME'} = $2;
$_ = <DATA>;
/:\s(.*?)\s+\w+\s\w+:\s(.*?)\s*$/;
$hash{'VTYPE'} = $1;
$hash{'LASTM'} = $2;
$_ = <DATA>;
$_ = <DATA>;
/^\s*(.*?)\s*$/;
$hash{'EP'} = $1;
$_ = <DATA>;
$_ = <DATA>;
/^\s*(.*?)\s*$/;
$hash{'FEP'} = $1;
$_ = <DATA>;
$_ = <DATA>;
/^\s*(.*?)\s*$/;
$hash{'UP'} = $1;

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