--- Perl sample codes -----

my (@list) = ( "12", "123", "1234", "12345",
"123456", "1234567", "234", "2345", "23456" );

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