Help for this page

Select Code to Download

Select or download this

sub transform (
   $_[ 0 ] = 'tripped';
...
...

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