#!/bin/sh -- # -*- perl -*- -w
eval 'exec perl -S $0 ${1+"$@"}'
    if 0;

while (<>) {
  # DOS bzw. ansi bzw. Atari->ISOLatin1, delete CR
  # I couldn't find a capital "O in my Atari sources, so it doesn't translate right now :-(
  tr/꼾걥쉳\r/隘闊輻/d;
  print $_;
}
