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

##</code><code>##

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

##</code><code>##

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

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

##</code><code>##

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

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