sub is_abc {
    local $_ = shift || $_;
    $_ !~ /[^abc]/
}

sub is_ab {
    local $_ = shift || $_;
    $_ !~ /[^ab]/
}