c:\@Work\Perl>perl -wMstrict -MData::Dump -le
"my @special_characters = q{# $ % & ~ _ \\ { } ^};
 dd \@special_characters;
 print 'number of elements in array: ', scalar @special_characters;
"
["# \$ % & ~ _ \\ { } ^"]

number of elements in array: 1