print Dumper [split / ?\| ?/, $json];