:%!perl -ple "print 'COMMIT;' unless $.\%500"