if (/$beg/ .. (/$end/ || eof())) { ... }