sub id2path_new {
    $_[0]?join"/",grep{$_}"00000$_[0]"=~/0*(..)(..)(..)$|0*(.{3,})(...)(...)$/:q();
}