#!/usr/bin/perl
# convert stdin to unix format to stdout
while( <> ){  while( /\r$/ || /\n$/ ){chop;}print "$_\n";}
