calendar: Calendar_1_test
11/01/03
11/02/03
calendar: Calendar_2_test
01/02/03
01/04/03
calendar: Calendar_3_test
03/01/03
03/02/03
##</code><code>##

$file="test_file.txt";
$StrSearch = "calendar: Calendar_2_test";

open TEST, $file;
while (<TEST>) {
if (/$StrSearch/) {
print "1\n";}
else {
if (/$StrSearch(.*?)calendar/qs){
print "1\n";}