#! perl
use strict;
use warnings;

while (my $line = <DATA>)
{
    chomp  $line;
    print "$line\n" if $line =~ / [Bb]ar .* \. java $ /x &&
                       $line !~ / ^ fee /x;
}

__DATA__
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

##</code><code>##

22:32 >perl 531_SoPW.pl
foo/src/com/stuff/ggbargg.java
foo/src/com/stuff/ggBargg.java

22:37 >

##</code><code>##

while (<DATA>)
{
    chomp;
    print "$_\n" if / [Bb]ar .* \. java $ /x && !/ ^ fee /x;
}