perl -pe 's/.*pattern\n$/<>for 1..3;$_/e'