<hide>ezt a szöveget akarod kiszedni?</hide>

A megoldás:
print "$1\n" while ($str =~ /\<hide\>([^<>]+)\<\/hide\>/g);

Lényeges része a mintának a [^<>]+, amivel tetszőleges karaktersorozatot engedsz meg, kivéve a kacsacsőröket.