my @arr = grep /^"/, @arr_s; #### /^"[^"]$/ #### /^"\p{Alpha}+$/