print qq("BLACK SPADE SUIT","BLACK HEART SUIT","BLACK DIAMOND SUIT","BLACK CLUB SUIT",\n); #decimail unicode character for above; my @ary=("♠","♥","♦","♣"); foreach my $target(@ary) { $target =~ s/\&#(.*);/$1/; print '"' . encode('utf8', chr($target)) . '",'; } print "\n";