if (m/^foo/ && m/bar$/ && !m/baz/){
   ...
}