Responses to Scripting in perl are valid here.

renuka:

OK, what's stopping you?

I'd suggest using a regular expression to handle the brunt of this. You might try reading perldoc perlre for how they work in perl.

...roboticus

When your only tool is a hammer, all problems look like your thumb.

Hello renuka,

Welcome to the Monastery. I am really impressed that you put your self through all of this effort writing this question instead of simple search Google.

Let me Google that for you!

After that you will find that 50% of the work is in the answer, then Google again combine and solve :).

Hope this helps, BR

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?