Help for this page
#!/usr/bin/perl -w use strict; ... my @arr2; while (@arr1) { push @arr2, join('-', splice(@arr1,0,3)) } print join('<br>',@arr2),$/;
01234-56789-01234<br>56789-01234-56789
www.com | www.net | www.org
No recent polls found