while($data =~ /'Errors' => \[([^\]]+)/sgm) {
	my $match = qq|\$ref = [$1];|;
	my $ref;
	$ref = eval {$match};
	print Dumper($ref);

}