Use the diamond operator to read the file/data. When a line starts with "//always" it triggers the begin of the block. You can use a Regular Expression to test this. Keep reading until you encounter an "//end" it's the end of the block. This should be straightforward.

Update

Something you can play with. You'll get the idea.

use strict;
use warnings;

while (my $line=<DATA>){
    if ($line =~ /\/\/always/){
        print "Start of block\n";
    }
    if ($line =~ /end\/\//) {
        print "End of block\n";    
    }
}

__DATA__
input [31:0]           ucast_mem_wdata;
   input [31:0]           ucast_mem_wren;
   input               ucast_mem_wr;
   input               ucast_mem_rd;
   output [31:0]           ucast_mem_rdata;

   wire [BMU_MEM_ADDR_BITS-1:0]   mem_addr; 
//always @ (posedge sys_clk or negedge sys_reset_n)
     begin
    if (!sys_reset_n)
      ucast_int_mem_rd_r <= 0;
    else
      ucast_int_mem_rd_r <= ucast_int_mem_rd & !ucast_access;
     end// this is the always block which i have to read into another 
+file

[download]

In reply to Re: Block reading by dHarry
in thread Reading block by ravi030

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.