#!/usr/bin/perl --

use strict;
use warnings;

open( TEST, "<test.txt") or die "CAN'T READ test.txt : $!";
while(<TEST>){
  if( /#bg\sas/ .. /#end/ ) {
    print
  }

}
close TEST or die "CAN'T CLOSE test.txt : $!";
__END__
#bg as,clock
brock
spock
mock
sock
#end