@a = $s =~ /\w/g;