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