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