Challenge 65 #2

sub palindromes($s) { ($s ~~ m:g/(.+).?<{$0.flip}>/)>>.Str || -1 }

say palindromes "aabaab";
say palindromes "abbaba";
say palindromes "abcba";
say palindromes "abc";