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