Select Code to Download

--- Perl sample codes -----

...
$line =~ s/(?<=\w)(?=(?:\w\w\w)+\b)/-/g;
print "$line<br>";
}

--- results of above code
12
...
234
2-345
23-456

123-4
123-45
123-456
123-456-7