No, it's my fault. I had constructed a slower function:

sub japhy {
  my $s = shift;
  join '-', unpack join('', map "A$_", @_), $s;
}
[download]

_____________________________________________________
Jeff japhy Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-Q)}y js++=;shajsj<++y(p-q)}?print:??;