#!/usr/bin/perl

use strict;
use warnings;

use JSON;
use Data::Dumper;

my $json = '{...} | {"Contacts": {"SubscribedFolders": ["wert1", "wert2", "wert3"]}}';

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

print Dumper($text);

my @var1 = ($text->{'Contacts'}->{'SubscribedFolders'});
my $var2 = @var1;

print Dumper(@var1, $var2);