use strict;
use warnings;
use Data::Dump;

my  @array = qw("this" "xxx" "is" not "xxx" and "xxx" "whatever");
dd \@array;

##</code><code>##

13:57 >perl 1497_SoPW.pl
[
  "\"this\"",
  "\"xxx\"",
  "\"is\"",
  "not",
  "\"xxx\"",
  "and",
  "\"xxx\"",
  "\"whatever\"",
]

13:58 >