#!/Perl/bin/perl

use strict;
use warnings;

my $line;

open (ORIGINAL,"<1.txt")  or die "$!";
open (NEWFILE,">new_1.txt") or die "$!";



while(!eof ORIGINAL)
{

	sysread ORIGINAL,$line,5201,0;
	chop $line;
	print  NEWFILE $line;

}

close(NEWFILE);
close(ORIGINAL);