my $foo = fmt($oid);
print "FOO: $foo\n";

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