perl -ne 'print, last if /regexp/' file