perl -e "use 5.012; my $bar = 'abcdefg'; if ($bar =~ /[a-d]/ && $ bar !~ /[ef]/ ){ say 'true';} else {say 'false';}"
false