$ perl -Mstrict -Mwarnings -E '
    my @data = qw{
        foo/src/com/stuff/xxxxxx.java
        foo/src/com/stuff/ggbargg.java
        foo/src/com/stuff/ggBargg.java
        fee/src/com/stuff/ggbargg.java
        fee/src/com/stuff/ggBargg.java
    };
    for (@data) {
        next if /^fee/;
        say if /[Bb]ar/;
    }
'
foo/src/com/stuff/ggbargg.java
foo/src/com/stuff/ggBargg.java