open RS, "< $rs_file";
while (my $line = <RS>){
print "$. $line";
}
close RS;