Ok, I get it. I can modify yours than, and improve it by two chars:

sub a {
$_=pop;s/^..$/0$&/;/495/?0:1+a(-($_=join'',sort/./g)+reverse)
}
[download]

The 15 year old, freshman programmer,
Stephen Rawls