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