#!/usr/bin/perl

use warnings;
use strict;

my $text = "ßeta";

print $text, "\n";
$text =~ s/\xDF//;

print $text, "\n";

__OUTPUT__
ßeta
eta