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

##</code><code>##

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