perl -i -ne 'print unless 1 .. 100; print q{testing} if$.==1' somefile