$xml = '<string>Everyone knows that 1 &lt; 2</string>';;
print $xml =~ m[>([^<]+)</string>]sm;;
Everyone knows that 1 &lt; 2