use strict;

while (<>) {
    /\bit (.*)[.?!]$/i and print $1,$/;
}

##</code><code>##

   perl test.pl test.dat

##</code><code>##

It starts with foo.  Then it goes to bar. That's it.
This next line contains nothing that matches.