$in_data = 1;
print $array_t $_;
} elsif (!$in_data) {
- s{s/\^\$/%/}{s/^\$/@/};
+ s{'%'}{'\@'};
print $array_t $_;
} else {
+ s!(\ba\b)?(\s*)HASH\b!($1 ? 'an': '') . "$2ARRAY"!eg;
s!->{([a-z])}!'->[' . num($1) . ']'!eg;
+ s!%(\{?)\$!\@$1\$!g;
my $buf;
my $suffix = $_;
my ($bracket, $prefix);