use strict;
use warnings;
use Encode;

my $binary = 'äöü'; # Rohdaten
# Kodierung einschalten
my $chars = Encode::decode("utf-8", $binary);
my $substr = substr($chars, 0, 2);
use bytes; # für print die Kodierung wieder ausschalten
print $substr; # äö