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

    binmode RS;

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