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";
while (my $line = <$fo>){
	print "$line"; 
        my $a =substr ($line, "suresh");
	print "$a\n";
	
}