If you are using Windows you should binmode the filehandle, this will avoid interpretation of ^Z (ASCII 26) as the end of file character:

    open RS, $rs_file or die "Error message here: $!\n";

    binmode RS;

    while (<RS>) {
        print $., "\t", $_;
    }
[download]

--
John.