$ perl -nle 'next unless /^(.*?) INFO .*? SENT/; $x = $1; END { print $x }' ts1 INFO ... SENT ts2 INFO ... RECV ts3 INFO ... SENT ts4 INFO ... RECV ts3