# hier knallt es
my $text = decode_json((split / ?\| ?/, $json)[1]);

# weil
$json[1]

nämlich gar nicht definiert ist.