note ioannis So it can run also under <i> use strict</i>:<p> <code> perl -Mstrict \ -ne'/regex(?{print @@; exit})/;' \ -e'shift(@@) if push(@@,$_)>5' file </code> 554388 554388