Select Code to Download

use strict;
use warnings;
...

# And, we what we get out of it
print "Results:\n" . Dumper(\@results) . "\n";

$VAR1 = "\0\1\0\0\0\0O\221O\34\13\1\0BSCA00\0\0\0\5\0\0CA00000\0\0\0\1
+CA00014\0\
0\0\2CA00022\0\0\0\3CA00024\0\0\0\4CA00029\0\0\0\1\0\"NCell0\0\0\0\2\0
+BSCA01\0\0
...
          0,
          0
        ];