use strict;
use warnings;

open my $fo, '+>>', "outfile.txt" or die "Error:$!\n";
print $fo "how r u\n";
print $fo "hey suresh their\n";
print $fo "in bangalore\n";
close $fo;

open my $fi, '<', "outfile.txt" or die "Error:$!\n";
while ( my $line = <$fi> ) {
	print "$line";
	my $a = index( $line, "suresh" );
	print "$a\n";
}

close $fi;