$"=", ";print"[@{[grep sqrt=~/\D/,3..99]}]"