my $text = "Here is some text.";
my $insert = "boring ";
$text =~ s/(some\s)/$1$insert/;