Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
...
my @arr2;
while (@arr1) { push @arr2, join('-', splice(@arr1,0,3)) }
print join('<br>',@arr2),$/;

Select or download this
```
01234-56789-01234<br>56789-01234-56789
```