if ((/$beg/ .. /$end/) or (/$beg/ .. eof())) {