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