Select Code to Download

use strict;
use warnings;
my $string= "012345678901234567890123456789";
$string = sprintf "%5s-%5s-%5s<br>%5s-%5s-%5s",$string=~/(\d{5})/g;
print $string,$/;

use strict;
use warnings;
...
my $string= "012345678901234567890123456789";
$string =~ s/(\d{5})(?!\b)/$1$cycle/g;
print $string;