#!/usr/bin/perl

my $newfile = "new.rar";

$content = join('',<>);
$count++ while $content =~ /\x0a/g;
print "count \\x0a = $count\n";

my $last = 0;
for( $i=1; $i<=$count; $i++ )
{
	$newcontent = $content ;

	my $index = index( $newcontent, "\x0a", $last );
	print "$i: index = $index\n";
	$last = $index+1;

	substr $newcontent, $index, 1, "\x0d\x0a" ;
	open( FILE, "> $newfile" );
	print FILE $newcontent ;
	close( FILE );

	system "unrar -phit2011 x $newfile 2>&1 > /dev/null";
	exit if $? == 0 ;
}