perl -le 'my @array = qq[Anthony Mark Alex A]; print for @array'