#!/usr/bin/perl
use warnings;
use strict;

my $str = q("string with a comma,","and some spaces", "three");
my @array;
eval <<"EVILEVAL";
\@array = ( $str );
EVILEVAL

print "ELT: $_\n" for @array;