foreach (<FILE>) {
	if (/PatternBegin/ .. /PatternEnd/) {
		$str .= $_;
	}
}