I probably missed a trick or two but here goes nothing at 39 chars

sub gapify_lk {
  $s=shift;$s=~s/(.*-)?.{$_}/$&-/for@_;$s
}
[download]

"Argument is futile - you will be ignorralated!"