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

my $data;

my $fsm = 1;
my $module   = '';
my $instance   = '';
my $entryRef;

while (<DATA>) {
    chomp;

    if (/^INSTANCE:\s+(\S+)/) {
        $module = '';
        $instance = $1;
    } elsif (/^MODULE:\s+(\S+)/) {
        $module = $1;
        $instance = '';
    } elsif (/^Fsm\s+(\S+)/) {
        next if !$fsm;
        if ($module) {
            $entryRef = $data->{'module'}{$module}{$1} ||= {};
        } else {
            $entryRef = $data->{'instance'}{$instance}{$1} ||= {};
        }
    } elsif (/^State\s+(\S+)/) {
        next if !$fsm;
        push(@{$entryRef->{'state'}}, "$1");
    } elsif (/^Transition\s+(\S+)/) {
        next if !$fsm;
        push(@{$entryRef->{'transition'}}, "$1");
    }
}

print Dumper($data);

__DATA__
INSTANCE: i_name
Fsm f_name
State s_name1
Transition t_name
State s_name2

##</code><code>##

$VAR1 = {
          'instance' => {
                          'i_name' => {
                                        'f_name' => {
                                                      'transition' => [
                                                                        't_name'
                                                                      ],
                                                      'state' => [
                                                                   's_name1',
                                                                   's_name2'
                                                                 ]
                                                    }
                                      }
                        }
        };