I would probably do something like this although I don't know what kind of stress on the machine this would do since it's loading it into the buffer and not sure how it would react with a file that large

#!/usr/bin/perl
use strict ;
use warnings ;
use IO::Uncompress::Unzip qw(unzip $UnzipError) ;
my $input = 'test.zip';
my $output ;
unzip $input => \$output, Name => "test1.txt" or die "unzip failed: $U
+nzipError\n";
    
my @lines = split("\n",$output);
print $lines[196609];
[download]