in reply to s/// don't delete matching phrase

$file =~ s{(<[^>]*>)}{
    # print "'$1'\n";
    ''
}ge;

[download]

- tye        

In Section Seekers of Perl Wisdom