if($_=~/$start_pattern/i)
        {
            $write_line = 1;
        }
        if($_=~/$end_pattern/i)
        {
            $write_line = 0;
        }
        if($write_line =~ '1')
        {
            print "$_\n";
        }