#!/usr/bin/perl -w

# this code acts as a simple DOS -> UNIX newline filter

# set input line separator to CRLF
$/ = "\r\n";

# set output line separator to LF (so we can just say 'print'
# to do 'print "$_\n"')
$\ = "\n";

# do it!
print while (<>);