#! /usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

my $long_string = 'ab' x 3e9;
my $pos = index $long_string, 'ba', 6e9 - 4;
say $pos;

__END__
5999999997