while ($str =~ /(?<!b)a/g) {
...