Extract text between tags

[PerlDiscuss - Perl Newsgroups and mailing lists]

I want the extract the text in between the tags from my 
htm file. I am using below code its not working
Please let me know how to proceed further.

use Text::Balanced "gen_extract_tagged";

my @queries = (
            qq(QUERY = <A href= "Suresh">sdf</a>)

);

for (@queries) {
    my ($extracted, $remainder, $prefix) = extract_delimited(
        undef,      # defaults to $_
        '>',        # Our chosen delimiter
        '[^<]*',    # Allow for text before the delimiter
        '');       # Escape delimiter when doubled
   
    # Strip the delimiter since Text::Balanced leaves it in
    $extracted =~ s/^\"(.*)\"$/$1/;
   
    print;
    print "\n\$prefix    = '$prefix'\n";
    print "\$extracted = '$extracted'\n";
    print "\$remainder = '$remainder'\n\n";
}





-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>