$word = 'blah'; print my_sub(map {s/blah/cow/; $_} ($word));