$answer =~ s/\s+$//g;
$answer =~ tr/\015//d;