perl -ne '@t=(@t[1..4],$_,"---\n");die@t if/foo/' file