This may do what you want:

use warnings;
use strict;

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

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

__DATA__
This € that
[download]

Prints:

This € that
This  that
[download]