use warnings;
use strict;

my $str = do {local $/ = ''; <DATA>};

print $str . "\n";
$str =~ s/[^\x00-\x7f]//g;
print $str;

__DATA__
This € that

##</code><code>##

This € that
This  that