perl -le '$s = "abcabdaaa"; $n = 3; print join( "i", split( /a/, $s, $n+1 ))'