my $bytes_per_line = 34;
my $pos = $line_number * $bytes_per_line;
seek(IN, $pos, 0);
my $line = <IN>;