use strict;
use locale;

while( my $ligne = <STDIN> ){
    $ligne =~ s/\r$//;
    print $ligne;
}