I'm certainly not going to win with a score of 132 (actually 130 minus the two strokes for not using(00..99)), but it's a different way to do it. I never was much good at golf anyway...

$n{sprintf("%02d", $c++)}=1 until($c>99);for(keys %n){delete $n{$_}if(
+$n{reverse($_)}&&reverse($_)!=$_)}print join('',sort keys %n)
[download]