{
    local $/ = \232;
    while (<$input>) {
        ...
    }
}