if ( $text =~ m/cow\s+(jumped)\s+over/ ) {
    substr($text, $-[1], $+[1] - $-[1], "tripped");
}