use Encode;

my $bytes;
eval {
   # Zeichen als Oktetten (aka Bytes), bei Kodierungsprobleme stirbt das Programm
   $bytes = encode("utf-8", $string, Encode::FB_CROAK); 
};
if ($@) { # Falls Problem in eval, dann ...
   # dein Code zur Fehlerbehandlung
}