$_ = "Tim created the ...";

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