sub isPalindrome {
    $_[0] =~ /(??{quotemeta scalar reverse $_})/i
}

sub isAllUpper {
    $_[0] =~ /(??{uc})/
}