sub transform ( $_[ 0 ] = 'tripped'; } ... $text =~ s[cow\s+(jumps)\s+over][\&transform]rg; ## /r for 'ref'?