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