map { s/this/that/; $_ } do { $str };