use Encode qw(decode);
$string_perl_intern = decode("shiftjis", $string_japanisches_encoding);