while (<$FH>) {
    # Remove *all* whitespace from the end of the line
    s/\s+$//;

    . . . the stuff you're gonna do anyway
}