#!/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__