The Encoding::FixLatin API 

use Encoding::FixLatin qw(fix_latin);

my $utf8_string = fix_latin($mixed_encoding_string);