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