if ($words =~ m/\s+bar\s+/){
                 next;
            }