$word = 'BLAHBLAH';
$word =~ s/BLAH/COW/;
print blah( $word );
print "$word\n";