use HTML::Entities qw( encode_entities_numeric );

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