perl -ne 'print if / (\S) \1 \1$/' data.txt