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