Use the range operator.

open (RUNSET, "<text.txt" ) || die "Can't access test\n";

while (<RUNSET>) {
    if (/^\*DESCRIPTION$/ .. /^\*END$/) {
        # do any substitutions
    }
}

close RUNSET;
[download]

/prakash