use 5.009005; $string =~ s/\w{3}\K/-/g; [download]
In reply to Re^2: Regex split string into n-length (\K 5.010) by Anonymous Monk in thread Regex split string into n-length by hankcoder