@in = <>;
foreach (@in) {
        $_ =~ s/\n//;
        $_ =~ s/\r//;
        print;
}