sub fmt($){
 join("", map { sprintf "%05d", $_ } split(/./, shift));
}