Anyidea why tis sub is failing...I'm passing it an oid string like so:

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

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

Thanks!