Untested legacy code is for free:

#!/usr/bin/env perl

use strict;
use warnings;
use feature qw(say);
use Data::Dump;

my $string = q(lorem ipsum kizuaheli);

say length $string;

$string =~ m/(kizuaheli)/;

say $1;

dd \@-;

dd \@+;

say qq($-[1] $+[1]);


__END__
[download]

Cheated from brian_d_foy's answer at How can I find the location of a regex match in Perl?