如何在perl中匹配多行

This is line 1.
This is line 2.
This is line 3.

my $text = "This is line 1.\nThis is line 2.\nThis is line 3.";
if ($text =~ /This is line 2\..*?This is line 3\./s) {
    print "Match found!";
} else {
    print "Match not found!";
}

This is line 1.
This is line 2.
This is line 3.

my $text = "This is line 1.\nThis is line 2.\nThis is line 3.";
if ($text =~ /^This is line 2\./m) {
    print "Match found!";
} else {
    print "Match not found!";
}