sub r{
y/2569/5296/for$@=pop;!/[347]/&&$@==reverse
}

# A slightly different take ...
sub r2{
y/2569/5296/for$@=pop;!(/[347]/|$@-reverse)
}