perl -i.bak -ne '/\bNOID\b/&&$c=4;($c-->0)||print' datei.txt