Another one.

use strict;
undef $/;
my $data = <DATA>;
my (%hash, @chars) ;
my $count = 0;

foreach (split("\n", $data)) {
push @chars , $1 if $_ =~  m/^v_((.*)) {/ ; # Thanks Anonymous Monk-- 
}

foreach  (@chars) {
   @{$hash{$_}} = split( "\n", $1) if $data =~ m#v_$_ \{([^\}]+)\}#;
   $count = ($count > @{$hash{$_}}) ? $count : @{$hash{$_}} ;
}

for  my $c (0..$count) {
      print ${@{$hash{$_}}}[$c] ."\t" foreach ( @chars );
      print "\n" ;
}
[download]

Thanks..