find . -name *.ext -print | xargs perl -pi.bk -e \
'
if ($flag && /end_match/) {$flag = 0;}
if ($flag) {
	$sub = $printed++? '': 'My text to substitute';
	s/^.*$/$sub/;
}
if (/start_match/) {$flag++;$printed = 0;}
'