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