binmode STDIN;
binmode STDOUT;
my $newline;
while(  <STDIN>  ) {
    $newline ||= /\r/ ? "\r\n" : "\n";
    s/\s+$//;
    ...
    print ..., $newline;
}