perl -i.bk -ne 'print if ($. % 25 != 0)' file