http://www.perlmonks.org?node_id=987767


in reply to Re^6: Printing first and last line
in thread Printing first and last line

I left a little work for you. Surely you can compare $want and $got, and print only if they differ?