local $_ = "";
	while( sysread FH, $_, 8192, length ) {
		while( s/^((?s).*?)your_pattern/ ) {
			my $record = $1;
			# do stuff here.
		}
	}