$string =~ s/\s*$//;