Converting dell tags to svc codes - itty-bitty golf, anyone?

Question came up elsewhere and via:
http://www.creativyst.com/Doc/Articles/HT/Dell/DellNumb.htm

we found Dell uses base 36 for its Service tags.  You need the decimal for 
the automated phone access so somebody came up w/:
map {$s+=(/\d/?$_:(ord()-55))*(36**$i++)} reverse(split(//,uc shift)); 
$s =~ s/(...)/$1-/g; print "$s\n"; 

as a rough stab.  But I thought I'd ask the first team for a 
cooler/shorter result, if anybody's interested.

Thanks.

a

Andy Bach, Sys. Mangler
Internet: [email protected] 
VOICE: (608) 261-5738  FAX 264-5932

"My rights are very dear to me. I served my country to defend them. And 
one of the things
I was defending was free speech. It's the First Amendment for a 
reason--not the last, not the middle.
The first." - Dwight Scarbrough, Fed. employee after DHS conflict over 
anti-war slogans on his truck
http://www.boiseweekly.com/gyrobase/Content?oid=oid%3A158729