$text =~ s/(\W+)/$1->()/eg; # replace any nonwhitespace characters with
the result of a function call