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

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