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