#!/usr/bin/perl -w

# mac2unix converts plain text files from a mac (cr) to unix plain text
# files <cr>


foreach $file (@ARGV)
{
    open(EINGABE, $file) or die "### Can't read file\n";

    while ($daten = <EINGABE>)
    {
    	@aufgeteilt = split(//,$daten);
	foreach $char (@aufgeteilt)
	{
	    if ($char eq "^M") 
	      {print "\n";} 
	         else 
	      {print $char;} 
	}
    }
    close(EINGABE);
}