P:\test>type junk.pl
sub is_rotatable{
#234567890123456789012345678901234567
$_=$_[0];y/2569347/5296/;pop==reverse
}

printf "%s %s rotatable\n", $_, is_rotatable( $_ ) ? 'is' : 'not'
        for 33, 131, 141, 171,
        25696925, 101, 88;


P:\test>junk
Modification of a read-only value attempted at P:\test\junk.pl line 3.