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