sub r2{
$_=$_[0];y/2569347/5296/;pop==reverse
}

my @tests = (0..9);
print "$_: ",(r2($_)?'Yes':'No'), "\n" for @tests;

__DATA__
0: Yes
1: Yes
2: Yes
3: Yes
4: Yes
5: Yes
6: Yes
7: Yes
8: Yes
9: Yes