If its just for you and not for processing, then perl is overdoing it and grep -A3 "line searching for" file.log is much easiere.
Else you have to make a little state machine to handle the cases properly (as in before found, searching for lines between, printing the next info and searching for the next data)

T I M T O W T D I