Works great, but also deletes newlines. In case the newlines are needed:

s/[ \t]+$// for @lines;

    -- Chip Salzenberg, Free-Floating Agent of Chaos