$ perl -le 'my $x = "ÞORNþorn"; $x =~ y/Þþ//d; print $x'
ORNorn