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

##</code><code>##

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