#!/usr/bin/perl
# uncrlf - make sure each line ends with LF, not CR+LF.
# --------------------------------------------------------------------
while (<>) {
    s/\r\n$//;
    printf ("$_\n");
}