Select Code to Download

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

my $text = "Here is some\nmulti-lined text";
my $insert = "thrilling "
$text =~ s/(some\s)/$1$insert/s;

$text =~ s/(some\s)/$1$insert/sg;

my $pattern = "Text with\nnewlines in it";
my $text = ......lots of stuff.....
$text =~ s/(\Q$pattern\E)/$1$insert/sg;