use 5.009005;
$string =~ s/\w{3}\K/-/g;