sub id2path_new {
    my $id = shift or return q();
    sprintf "%0".($id=~/(.+)(...)(...)/?3:("00000$id"=~/(..)(..)(..)$/,2))."d/$2/$3",$1;
}