#!/usr/bin/perl 

use strict; 
use warnings;
use Encode;
require Encode::Detect;

my $data = "Foo \xE2\x80\x94 Bar";
my $utf8 = decode("Detect", $data);
binmode STDOUT, ":encoding(UTF-8)";
print $utf8;