$ans =~ y/[[:space:][:cntrl:]]//d;