You program would probably run a little more quickly if you used lexical (my) variables--assuming you are not already doing so.

You may also gain a little performance from avoiding the join by setting $, = "\t"; and just printing the splice.