$String = "hello I went to the store yesterday and the day after and the day after";
   if ($String =~ /yesterday/i) {
        until ($String =~ /after/i) {
            print "Summary: $'"
        }
    }