s/(?<!=)'(?![ >])/&apos;/g

##</code><code>##

use HTML::Entities qw( encode_entities_numeric );

s/(?<=<app text=')(.*?)(?=' date)/encode_entities_numeric("$1")/eg;