Select Code to Download

  DB<150> sprintf "%d-%d-%d-%d", ('1234567890123456' =~ /(....)/g)
 => "1234-5678-9012-3456"

  DB<151> sprintf "%d%d%d%d-%d%d%d%d-%d%d%d%d-%d%d%d%d", split //, '12
+34567890123456'
 => "1234-5678-9012-3456"

  DB<153> join "-", ('1234567890123456' =~ /(....)/g)
 => "1234-5678-9012-3456"

  DB<160> sprintf "%d-%d-%d-%d", ('0123456789012345' =~ /(....)/g)
 => "123-4567-8901-2345"

  DB<161> sprintf "%04d-%04d-%04d-%04d", ('0123456789012345' =~ /(....
+)/g)
 => "0123-4567-8901-2345"