my $word = 'BLAHBLAH'
blah(grep {s/BLAH/COW/ || 1 } $word);

##</code><code>##

blah(grep(s/BLAH/COW/,$word)||$word)