use strict;
use warnings;

while(my $line = <DATA>)
{
    chomp($line);
    if( $line =~ /(?<!fee\/src\/)(com\/)/ )
    {
        print $line . "\n";
    }
}
__DATA__
foo/src/com/
foo/src/com/
foo/src/com/
fee/src/com/