Select Code to Download

#!/usr/bin/perl
use 5.016;
use warnings;
...

__DATA__
[{field1:value1,field2:value2,field3:value3},{field1:value4,field2:val
+ue5,field3:value6},{field1:value7,field2:value8,field3:value9}]

C:\>perl D:\_Perl_\PMonks\1055528.pl
         1: [{field1:value1

...
$VAR7 = '{field1:value7';
$VAR8 = 'field2:value8';
$VAR9 = 'field3:value9}]';