## is_palindrome.p6 sub is-palindrome(Str $sent) returns Bool { my Str $s = $sent.lc.trans(["a".."z", 0..9] => "", :complement); return $s ~~ join "", reverse split "", $s; } sub MAIN { my @test = ["Ah, Satan sees Natasha!", "Are Mac 'n' Oliver always eveil on camera?", "Perl 6"]; for @test -> $s { say $s, " is a palindrome: ", is-palindrome($s); } }