How to keep trace xyps AND pass text to Perl

Capturing text in a text using suppress and passing it to Perl strips the tracing from that text.

i.e. '1.02' deleted, '1.01' inserted.

If I turn off the suppress and the call to Perl I get:

1.02 1.01

which is correct. However, once I turn the suppress back on and pass the text to Perl, only the '1.01' is received.

The reason I need to pass the text in the first place is to 'read' the content and output additional text/characters based on the content.