while (<>) {
    while ( /\bit (.*?)[.?!]/ig ) {
        print "\n$1\n";
    }
}