Is there any alternative for this

Yes:  $ans =~ s/[[:space:][:cntrl:]]//g;