perl -nlwe 'print $1 if /\bit\b(.*[.?,])$/' text-file

##</code><code>##

perl -nlwe '/[.?,]$/ && /\bit\b/ && print $'"'" text-file