my $string = q(This is in the string); my $look = q(); my $pos = length($look) + index($string,$look); substr($string,$pos,0)= 'new line'; print $string;