$_ = "This is first sentence.";
print "1st: match\n" if (/^This/i and /\.$/ and !/\bfirst\b/);

$_ = "This is second sentence.";
print "2nd: match\n" if (/^This/i and /\.$/ and !/\bfirst\b/);