$count=200;
$/ = \$count;
open(FILE1,"a.txt");
$record=<FILE1>;
close(FILE1);
print $record;