use Encode;
my $perl_string = decode(<encoding>, $original_string);