#!/usr/bin/perl

use warnings;
use strict;

my $text = "ßeta";

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

print $text, "\n";

__OUTPUT__
ßeta
eta
[download]

Although it would be more robust to follow something similar to what jacques suggested.