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

##</code><code>##

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

##</code><code>##

perl -e 'print "hello world\n"'

##</code><code>##

perl -ne 'print "hello world. Look at this: $_"' data.txt