use strict;
use warnings;

my $struct = <<STRUCT;
mm struct 
  a = 1
  b = 3
  m1 struct =
    c = 4
    d = 5
STRUCT

sub change_to_normal {
  my @lines = split /\n/, shift;
  my $str;
  my @indent;
  for my $line (@lines) {
    if( $line =~ /struct/ ) {
      $line =~ /^(\s*)/;
      push @indent, length( $1 );
      $line =~ s/=//g;
      $str .= $line."= {\n";
    } elsif( $line =~ /.*=.*/ ) {
      $str .= $line.";\n";
    } else {
      $str .= $line."\n";
    }
  }
  while( @indent ) {
    my $ind = pop @indent;
    $str .= " "x$ind."}\n";
  }
  return $str;
}

print change_to_normal( $struct );