$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";}