Help for this page
Select Code to Download
Select
or
download this
$string =~ s/(\w\w\w)/$1-/g;
Select
or
download this
$string =~ s/(\w\w\w)(?!$)/$1-/g;