Select Code to Download

sub aristotle {
    my $str = shift;
...

    return $palindrome;
}

#!/usr/bin/perl
use strict;
...
    print "$rotate_count: ", hd( $str ), " ^ ", hd( $rts ), " = ", hd(
+ $mask ), "\n";
    substr $rts, 0, 0, chop $rts;
}