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

sub blah {
my $stuff = shift;
print "$stuff\n";
}