while (<$IN>) {
    chomp;
    warn "Whitespace at end of line $.: >$_<"
        if /\s+$/;
    ...
};