Select Code to Download

my @sentences = (
    'This is a sentence',
    'This is another sentence',
);
my $matches = grep /\bthis is\b/i , @sentences;

print Start_In_Common( 'This is a sentence', 'This is another sentence
+' );
sub Start_In_Common {
...
}