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