local $/ = \232;
... 

##</code><code>##

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