local $_ = "012345678901234567890123456789";
print join( '<br>', map join('-',/(\d{5})/g), /(\d{15})/g ), "\n";
[download]

Don'cha just love lists. :)

Makeshifts last the longest.