print next lline if match pattern

cat workspace/perl/0to9.txt | perl -ne '$n=3 if /4/ ; print if $n-- > 0'