ゴミをのこさないようにwinテキストをcygwin perlでchompする

winのエディタでいろいろ編集したテキストファイルをバイナリモードかつcygwin perlでchompするときの
chompはこうしたほうがよいの例。
むかし2chで怒りっぽい人に教えてもらった。重宝してる。

unless ($eol) { ($/) = ($eol) = /(\x0d?\x0a|\x0d)$/; }; chomp;