sub gapify {
  join'-',shift=~/@{[map"(.{$_})",@_]}(.*)/x
}