#!/usr/bin/perl -wp use strict; #Adding a commit each 100 lines unless ( $. % 100 ) { print "commit;\n"; }